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FOREWORD 


Research  conducted  by  the  Systems  Research  Group  under  Contract 
DAAH01-70-C-0713  with  the  U.  S.  Army  Missile  Command  (MICOM),  Systems 
Analysis  Office,  is  reported  in  three  volumes  of  which  this  volume  is  the  second. 
The  objective  of  this  research  is  to  extend  DYNCOM  to  represent: 

1.  helicopter  units, 

2.  ballistic-trajectory  guided  missiles, 

3.  movement  of  crew-served  weapons, 

4.  electronic  countermeasures,  and 

5.  effects  of  smoke  and  haze  on  missile  guidance  systems. 

Volume  1 presents  the  design  of  models  to  represent  helicopters  and 
ballistic-trajectory  guided  missiles.  This  volume.  Volume  2,  contains  the 
DYNCOM  program  documentation  (flow  charts  and  common  descriptions)  lor  the 
helicopters,  guided  missile,  and  crew-served  weapon  models.  The  Classified 
Annex,  Volume  3,  documents  the  models  to  represent  electronic  countermeasures 
and  the  effects  of  smoke  and  haze. 

The  program  documentation  presented  in  this  volume  consists  of  two  ap- 
pendixes. Appendix  A contains  the  description  of  labeled  commons  explicitly 
created  and/or  modified  for  the  helicopter,  ballistic  trajectory  guided  missile, 
and  crew-served  weapon  movement  models.  Appendix  B contains  How  charts 
of  subroutines  created  and/or  modified  for  these  three  models.  The  contents  of 
both  appendixes  are  arranged  in  alphabetical  order  with  respect  to  the  common 
or  subroutine  name.  Because  of  the  size  of  this  volume,  it  appears  in  two  sec- 
tions. This  section.  Section  1,  contains  Appendix  A and  Appendix  B up  to  sub- 
routine CXY  LOG.  The  remainder  of  Appendix  B is  in  Section  2.  In  addition. 
Chapter  1 of  this  volume  contains  a summary  of  the  changes  to  the  Crew-Served 
Weapon  Movement  Model  in  order  to  implement  it  in  DYNCOM. 

Conclusions  drawn  in  this  report  represent  the  current  views  of  the 
Systems  Research  Group,  The  Ohio  State  University,  and  should  not  be  considered 
as  having  official  MICOM  or  Department  of  Army  approval,  either  expressed  or 
implied,  until  reviewed  and  evaluated  by  those  agencies  and  subsequently  endorsed. 

The  cooperation  received  from  MICOM  in  preparing  this  report  has  been 
extremely  helpful.  In  addition,  we  wish  to  acknowledge  the  advice  provided,  and 
the  cooperation  received,  from  the  U.  S.  Army  Combat  Developments  Command 
(USACDC).  In  particular,  the  Systems  Analysis  Group  and  the  aviation  ageney 
have  been  most  helpful.  \ 
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the  programmers,  Robert  J,  Wilhelm,  Charles  McCartney,  William  Hess,  and 
Gerald  Petty,  who  assisted  so  ably  in  developing  these  extensions  to  the 
DYNCOM  program.  Without  their  contributions,  this  model  would  not  have 
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CHAPTER  1 


CREW-SERVED  WEAPON  MOVEMENT  MODEL 


by 

S.  Parry 

The  primary  mission  of  crew-served  weapons  is  to  provide  the  commander 
of  a combat  unit  with  organic  assault  and  anti-tank  capabilities.  A crew- served 
weapon  (CSW)  unit  is  considered  to  be  composed  of  one  weapon,  and  the  pel sonnc 
and  equipment  required  for  operation  of  that  weapon.  The  factors  listed  below 
highlight  the  basic  differences  between  the  armored  vehicle  and  the  CSW  uni  : 

1.  The  dismounted  CSW  unit  is  more  susceptible  to  enemy  fire 
because  of  Its  limited  movement  speed  and  lack  of  protection; 

2.  CSW  units  are  more  difficult  to  detect  because  they  are  generally 
man-portable  and  hence  have  a greater  ability  to  attain  and  main- 
tain concealment  than  does  an  armored  vehicle; 

3.  Dismounted  CSW  units  may  be  placed  in  strategic  locations  un- 
attainable by  armored  vehicles  because  of  their  ability  to  avoid 
detection  and  to  move  over  terrain  that  may  be  untrafficable  tor 
armored  vehicles. 

Research  summarized  in  this  chapter  represents  the  third  phase  of  re- 
search conducted  by  the  Systems  Research  Group  in  the  area  of  crew-served 
weapons.  The  initial  phase  of  research,  reported  in  reference  1,  resulted  in 
models  to  describe  the  following  processes; 

1 The  process  by  which  crews  dismount  from  personnel  carriers, 
establish  defensive  positions  at  the  dismount  point,  and  remount 
when  appropriate; 

2.  The  detection  of  dismounted  crew-served  weapon  units;  and 

3.  The  infliction  of  damage  upon  crew-served  weapon  targets. 

In  addition,  the  research  describes  modifications  to  existing  simulation  models 
such  as  the  Communications,  Movement  Controller,  Eire  Controller,  and  Mr  ng 

Models. 


The  second  phase  of  research,  reported  in  reference  2,  extended  the 
initial  research  to  more  effectively  evaluate  the  combat  performance  of  crew- 
served  weapons  in  armored-unit  engagements.  The  following  models  and  meth- 
odology were  developed: 

1.  Methodology  was  developed  to  determine  preferred  firing  positions 
for  dismounted  CSW  units  operating  in  either  attack  or  defense 
modes; 

2.  The  capability  was  developed  to  represent  either  single  or  multiple 
CSW  units  dismounting  from  a personnel  carrier,  and  subsequent 
operations  of  the  CSW  units. 

3.  Given  a desired  firing  position  for  a dismounted  CSW  unit,  a 
dynamic  route  selection  model  was  developed  to  select  the  optimal 
route  of  advance  from  the  dismount  point  to  the  desired  firing 
position  in  accordance  with  specified  tactical  doctrine. 

4.  A movement  model  was  developed  to  move  dismounted  CSW  units 
along  their  selected  routes  to  their  respective  firing  positions. 

During  the  phase  of  research  described  in  this  chapter,  the  following 
items  were  accomplished: 

1.  Methodology  was  developed  to  dynamically  move  the  dismounted 
CSW  units  back  to  their  A PC  and  to  remount  the  crews  (Subroutine 
MOUNT); 

2.  All  existing  CSW  model  subroutines  were  programmed  in  DYNCOM, 
and  interface  logic  required  for  linkage  with  existing  DYNCOM 
routines  was  developed; 

3.  Time  coordination  logic  enabling  the  APC  and  dismounted  CSW 
units  to  operate  either  independently  or  together  was  developed; 

4.  The  CSW  model  was  successfully  run  with  real  data  in  DYNCOM. 

The  logic  flow  of  the  CSW  routines  is  given  in  Figure  1 . When  DYNCOM 
determines  that  the  current  element  is  either  an  APC  which  is  to  dismount  or 
remount  crews  or  a dismounted  CSW  unit,  subroutine  CSWCON,  which  controls 
the  computations  for  CSW  units,  is  called.  If  the  element  is  an  APC,  primary  and 
alternate  desired  firing  positions,  as  well  as  the  optimal  route  to  the  primary 
firing  position,  are  determined  as  a function  of  the  deployment  mode  for  each 
CSW  unit  on  the  APC'.  If  the  element  Ih  a dismounted  CSW  unit,  the  movement 
path  (either  toward  a firing  position  or  the  selected  remount  point)  is  determined 


LOSCMP 


Figure  1.— CSW  Routine  Logic  Flow 


for  the  event.  The  dismounted  CSW  unit  is  then  moved  by  using  subroutine 
CSMOVE. 


Deployment  Modes 

CSW  units  may  be  deployed  in  either  the  attack  or  defensive  modes.  The 
determination  of  the  deployment  mode  for  the  CSW  units  depends  on  the  location 
of  the  threat  position  for  the  APC.  The  threat  position  is  determined  according 
to  the  following  logic: 

1.  If  the  APC  has  a target,  the  threat  position  (XT,  YT)  is  set  as 
the  coordinates  of  the  target, 

2.  If  the  APC  does  not  have  a target,  (XT,  YT)  is  determined  as 
the  centroid  of  all  enemy  elements  currently  detected  by  the 
APC. 

3.  The  mode  of  deployment  depends  on  the  distance  of  the  APC  from 
XT,  YT  and  is  controlled  by  a distance,  RMIN,  specified  by 
input  data. 

a.  If  the  distance  is  less  than  RMIN,  the  deployment  mode 
is  defensive; 

b.  If  the  distance  is  greater  than  RMIN,  deploy  in  the  attack 
mode;  and 

c.  If  no  enemy  elements  are  currently  detected  by  the  APC, 
deploy  in  the  defensive  mode  facing  in  the  direction  of 
the  maneuver  unit's  heading. 

If  the  attack  mode  is  utilized,  a fire-position  selection  grid  is  constructed  in  die 
sector  of  responsibility.  Each  point  in  the  grid  is  evaluated  as  to  its  desirability 
considering  the  portion  of  the  target  threat  position  covered  relative  to  the  grid 
point;  the  portion  of  the  grid  point  covered  or  concealed  relative  to  the  target 
threat  position;  and  the  range- firepower  index  for  the  CSW  unit  relative  to  the 
grid  point-target  threat  position  combination.  The  primary  desired  firing  posi- 
tion is  selected  as  the  grid  point  with  maximum  desirability  within  a specified 
allowable  distance  from  the  primary  firing  position.  The  purpose  of  selecting 
an  alternate  diring  position  is  to  provide  the  capability  of  representing  "shoot 
and  scoot"  tactics  on  the  part  of  the  dismounted  CSW  unit. 

An  example  of  an  actual  DYNCOM  run  showing  the  selection  of  primary 
and  alternate  firing  positions  is  given  in  Figure  2 . Note  that  the  grid  consists 
of  22  rows  and  16  columns.  The  primary  firing  position  (row  20,  column  6) 
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Figure  2.  — Attack  Mode  Deployment 
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has  a desirability  of  0.  8443.  In  this  example,  equal  weights  of  importance  (0.  33) 
were  assigned  to  the  cover  factors  and  the  range-firepower  index. 

If  the  defensive  mode  is  utilized,  deployment  of  the  CSW  units  occurs  along 
a line  through  the  A PC  perpendicular  to  the  threat  position  specified  for  the  A PC. 
The  fire  position  selection  grid  for  defensive  deployment  consists  of  points  along 
the  deployment  line  of  a specified  length.  The  desirability  of  each  point  is 
evaluated  as  in  the  attack  mode,  except  that  the  range  firepower  index  is  not 
used. 

An  example  of  a defense  mode  deployment  fire  position  grid  is  given  in 
Figure  3.  Note  that  the  second  column  point  is  selected  (with  a desirability  of 
0.  5913).  In  this  case  equal  weights  (0.  5)  were  assigned  to  each  cover  factor. 

The  logic  to  determine  firing  positions  for  dismounted  CSW  units  is 
accomplished  by  subroutines  CSWGRD,  CSWDES,  MXDSR,  CXYLOC,  and 
LOSCMP  (see  Figure  1). 

Route  Selection 


After  the  desired  firing  position  has  been  selected  for  each  dismounted 
CSW  unit,  a route  from  the  dismount  point  to  the  firing  position  is  selected.  This 
logic  is  accomplished  by  subroutines  CSRTSL,  CSNBOR,  CSICDI* , CRTLOC, 
ELOC,  LOSS,  PDPGET,  PDPSET,  and  CSTIME  (see  Figure  1). 

A square  grid  is  established  with  orientation  on  the  battlefield  such  that 
the  dismount  point  is  in  the  center  of  the  second  row  and  the  firing  position  is 
in  the  center  of  the  last  row.  The  relative  tactical  difficulty  of  each  grid  point 
is  determined  by  considering  travel  time,  known  enemy  elements,  and  known 
enemy  strong  points.  The  optimal  route  is  determined  utilizing  the  dynamic  pro- 
gramming algorithm  which  has  been  developed  for  the  armored  units. 

An  actual  difficulty  grid  from  which  the  optimal  route  is  selected  is  given 
in  Figure  4 . The  X-Y  coordinates  of  the  route  actually  selected  from  the  dif- 
ficulty grid  are  shown  in  Figure  5 . 

Movement  of  Dismounted  CSW  Units 

The  CSW  Route  Selection  Model  generates  a sequence  of  movement  control 
points  through  which  dismounted  CSW  units  are  to  move  when  deploying  in  the 
attack  mode.  The  use  of  movement  control  points  and  plane  departure  points  is 
adapted  fromtheir  use  by  armor  units  in  DYNCOM  (see  Movement,  Chapter  7 in 
reference  3). 

The  movement  speed  for  a dismounted  CSW  unit  is  determined  us  a function 
-f  the  grade  angle  of  the  terrain  being  traversed  and  the  unit's  weapon  code.  The 
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Figure  4. —The  CSW  Rnute  Difficult-  Grid 
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Figure  5.  — The  CSW  Jloute  Selected 


unit  is  moved  at  a constant  velocity  between  two  specified  plane  departure  points, 
and  the  movement  event  time  is  specified  by  input  data. 

If  the  dismounted  CSW  units  are  deploying  in  the  defensive  mode,  each 
unit  is  moved  along  a straight  line  path  from  the  dismount  point  to  its  desired 
defensive  firing  position.  The  unit  will  remain  in  its  defensive  firing  position 
until  it  is  determined  that  the  units  are  to  remount  the  A PC. 

If  the  CSW  units  are  deployed  in  the  attack  mode,  each  unit  moves  along 
its  selected  route  to  its  primary  desired  firing  position.  Once  the  unit  attains 
its  primary  firing  position,  the  unit's  firing  mission  commences  as  determined 
by  the  firing  models.  "Shoot  and  scoot"  tactics  are  performed  between  the  pri- 
mary and  alternate  firing  positions  as  specified  by  input  tactical  doctrine.  An 
example  of  dismounted  CSW  unit  movement  events  from  an  actual  simulation  run 
is  given  in  Figure  6. 


Remounting  of  CSW  Units 

The  logic  to  move  dismounted  CSW  units  to  the  A PC  and  to  remount  the 
units  on  the  APC  was  developed  and  programmed  during  the  research  period 
described  by  this  report.  Subroutine  MOUNT  is  used  to  return  the  CSW  units 
to  the  APC  when  it  is  determined  that  the  units  are  to  remount. 

The  computational  procedures  of  Subroutine  MOUNT  follow: 

1.  If  the  CSW  units  are  currently  in  the  process  of  returning  to  the 
APC;  i.  e. , if  the  remount  time  for  the  APC,  TMNTD(LAPC),  is 
greater  than  EC  LOCK  (ICE),  th>  current  clock  time  of  the  current 
element;  go  to  step  4,  otherwise  go  to  step  2. 

2.  Determine  the  maximum  travel  time,  TRVMNT,  for  the  CSW 
units  to  return  to  the  APC  for  all  CSW  units  still  alove  by  calls 
to  subroutine  CSTEME  for  each  crew.  * 

3.  Determine  TMNTD(LAPC),  the  time  at  which  all  CSW  units  will  be 
ready  to  remount  the  APC;  i.  e. , 

TMNDT(LAPC)  = ECLOCK(ICE)  + TRVMNT. 


♦All  firing  assignments  for  the  CSW  units  are  deleted  during  remount 
procedures.  The  APC,  however,  may  continue  to  have  firing  assignments  until 
the  final  stages  of  remounting  the  crews. 
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Figure  6.  — Dismounted  CSW  Unit  Movement  Events 


4.  If  all  crews  will  reach  the  A PC  In  the  current  event;  I.  e. , 


TMNTD(LAPC)  - ECLOCK(ICE)  < EVTIME: 
go  to  step  8,  otherwise  go  to  step  5. 

5.  Move  each  CSW  unit  which  has  not  arrived  at  the  remount  position 
toward  the  APC  by  calls  to  subroutine  CSMOVE. 

6.  If  all  of  the  crews  are  casualties,  delete  the  APC's  CSW  carrier 
function  for  the  duration  of  the  battle  and  return  to  CSWCON, 
otherwise  go  to  step  7. 

7.  Set  the  event  time  for  the  current  event;  i.  e. , TIME  - EVTIME; 
allow  the  APC  to  fire  while  crews  are  returning  to  the  APC,  and 
return  to  CSWCON. 

8.  Set  flags  to  indicate  that  all  CSW  units  have  remounted  the  APC 
in  the  current  event;  i.  e. , set  (for  each  CSW  unit,  NCR), 

KSMAKE  (NCR)  = 0 
KSALT(NCR)  = 0. 

9.  Set  the  current  event  time;  allow  the  APC  no  further  activities 
during  the  event;  and  return  to  subroutine  CSWCON. 

It  should  be  noted  that  if  the  APC  becomes  a casualty  and  is  no  longer 
able  to  move,  the  dismounted  CSW  units  assigned  to  that  APC  remain  at  their 
firing  positions  for  the  duration  of  the  battle. 

Summary  and  Conclusions 

The  ability  of  dismounted  CSW  units  to  attain  covered  and/or  concealed 
positions  is  their  primary  asset  in  a land  combat  engagement.  Thus,  the  primary 
goal  of  the  crew-served  weapon  models  is  to  provide  a dynamic  representation  of 
dismounted  CSW  units'  interactions  with  the  terrain. 

In  particular,  the  selection  of  deployment  modes,  firing  positions,  and 
routes  to  these  firing  positions,  as  well  as  movement  over  these  selected  routes, 
emphasize  the  interaction  of  the  dismounted  CSW  units  with  terrain  conditions. 

In  addition  the  models  explicitly  consider  known  enemy  locations,  CSW  unit  fire- 
power capabilities,  enemy  threat,  and  input  tactical  doctrine. 

Finally,  it  is  important  to  note  that  the  current  models  explicitly  repre- 
sent dismounted  CSW  units  in  support  of  armored  units  agalnt  hard-point  targetH. 
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COMMON/ADJASP/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


ADJASP  contains  the  slant  range  adjustment  factor  for 
aerial  target  aspect. 

ADJASP  is  a three-dimensional  array. 


where  ADJASl  T,  J,  K) 


1 = 


il  I 


1~  incoming  aspect 
2 r outgoing  aspect 
Irrelative  to  firer 

2 r relative  to  MAD  (see  COMMON/MADRES/) 


K firer  weapon-ammunition  code,  (K  1. . . , MIHTPB), 
where  MIHTPB  - largest  firer  weapon  ammunition 
code  index  number  assigned  in  COMM ON/1  HTPRB/. 


Required 


ADTGSL 
2*2*  MIHTPB 


1 For  J 2,  only  I 1 is  assigned  a weight. 


COMMON/AMBDA/ 

AMBDA  contains  the  mean  time  between  fire  missions  for 
an  FO  Bravo. 

AMBDA(I,  J)  (real,  seconds) 

j _ I 1 regular  FO  Bravo 
j 2 special  FO  Bravo 

J = 1,  . . . , MWART  supporting  fire  weapon  code 

Required 

AFO 


LENGTH: 


2*  MWART 


COMMON/AMOSPY/ 

4 

* 

CONTENTS:  AMOSPY  contains  the  ratio  of  the  current  ammunition  supply 


to  the  critical  level,  defined  by  common  area  JAMOAV,  of  an 
ammunition  type  for  an  aerial  vehicle  element. 

ARRANGEMENT:  AMOSPY  is  a two-dimensional  array. 

AMOSPY  (I,  J)  contains  the  ratio  for  the  Ith  ammo  type  for 
the  jth  aerial  vehicle 

where 

1 1, ....  NAMMOS,  where  NAMMOS  is  the  number  of 

ammunition  codes  allowed  per  element. 

J 1,...,  MAXNAV,  where  MAXNAV  is  the  maximum  number 
of  aerial  vehicle  elements. 

INITIALIZATION:  None  required 

USERS:  WASAIR,  AIRAMO 

LENGTH:  NAMMOS4  MAXNAV 


COMMON/A  NEUT/ 

CONTENTS:  ANEUT  contains  one-half  of  the  range  dimension  of  the 

artillery  neutralization  ellipse  for  each  fire  pattern  type. 

ARRANGEMENT:  ANEUT  is  a two-dimensional  array. 

A NEUT (I,  J)  contains  the  dimension  for  the  I*-*1  fire 
pattern  of  the  -I^h  ;iiTillery  wea|x>n  code 
fori  I,...,5;.J  l,...,N  where  N 

is  tile  maximum  artillery  unit  weapon 
code  (real,  meters). 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  A It  LET  1 1 


LENGTH: 


5 * N 


COMMON/ANGLIM/ 


CONTENTS:  ANGLIM  contains  one-half  the  total  azimuth  field-of-view 

angle  for  helicopter  elements . 

ARRANGEMENT:  ANGLIM  is  a one -dimensional  array. 

ANGLIM (I)  (real,  radians) 

where 

I = 1 N1  helicopter  element  weapon  codes , and 

N = total  number  of  helicopter  element  weapon  codes . 


INITIALIZATION:  Required 
USERS:  INTELL,  A TANS 

LENGTH:  N 


*A11  elements  in  a helicopter  section  have  identical  characteristics. 
For  element  J in  a section,  I is  computed  by  the  relation 
I = LWCOD(J)  - MAXLWC. 

See  COMMON/LWCOD/  and  COMMON/NUMBER/. 


COMMON/ANGSEC/ 


CONTENTS: 


ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


ANGSEC  contains  the  sector  of  responsibility  angle  for  all 
CSW  units  on  an  APC  denoted  by  LAPC,  measured  from 
the  APC  coordinates  (XC,  YC).  Used  to  compute  firing  posi- 
tions for  dismounted  crews  when  attack  is  specified. 


ANGSEC  (LAPC) 
where  LAPC  = 1, 
Required 
CSWCON 
NAPCMX 


(real,  radians) 
. . NAPCMX. 
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COMMON/ARFCW1/ 


CONTENTS: 


ARRANGEMENT: 


INITIALIZATION: 
USERS: 

LENGTH: 

l 

. 


CONTENTS: 


ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


ARFCW1  contains  a weighting  factor  for  a heavy  weapon 
being  considered  as  a target  for  aerial  vehicle  fire. 

ARFCW1  is  a one  dimensional  array. 

ARFCWl(I)  contains  the  weighting  factor  for  a target 
of  weapon  code  I for  I - 1,  . . . , N 

where  N is  the  maximum  ground  element  weapon  code. 

Required 

AIRPOR 

N 


COMMON/ Alt  FCW2/ 

ARFCW2  contains  a weighting  liiclor  for  a light  weapon 
being  considered  as  a target  for  aerial  vehicle  fire. 

ARFCW2  is  a one  dimensional  array. 

ARFCW2(1  ) contains  the  weighting  factor  for  a target 
of  weapon  code  1 for  1 1,  ....  N 

where  N is  the  maximum  ground  element  weapon  code. 

Required 

AIRPOR 

N 


COMMON/ARFCW3/ 


1 


CONTENTS:  ARFCW3  contains  a weighting  factor  for  an  element  which 

is  being  considered  as  a targer  for  aerial  vehicle  fire  and 
which  has  fired  at  a friendly  ground  element  in  its  previous 
event. 

ARRANGEMENT:  ARFCW3  is  a one  dimensional  array. 

ARFCW3(  I)  contains  the  weighting  factor  for  a target 
of  weapon  code  I for  I - 1,  ....  N 

where  N is  the  maximum  ground  element  weapon  code. 


INITIALIZATION: 

Required 

USERS: 

AIRPOR 

LENGTH: 

N 

COMMON/ARFCW4/ 

* 
• A 

CONTENTS: 

ARFCW4  contains  a weighting  factor  for  an  element  which  is 
being  considered  as  a target  for  aerial  vehicle  fire  and  has 
fired  at  another  friendly  aerial  vehicle  in  its  previous 
event. 

ARRANGEMENT: 

ARFCW4  is  a one  dimensional  array. 

ARFCW4(I ) contains  the  weighting  factor  for  a target  of 
weapon  code  I for  I = 1,  ...»  N 

where  N is  the  maximum  ground  element  weapon  code. 

INITIALIZATION: 

Required 

USERS: 

AIRPOR 

LENGTH: 

N 

A-10 

L 

1 

m *" 

COMMON/  ARFC  W5/ 


CONTENTS:  ARFCW5  contains  a weighting  factor  for  an  clement  which 

is  being  considered  as  a target  for  aerial  vehicle  fire  and 
which  has  fired  at  another  friendly  aerial  vehicle  of  the 
current  section  in  its  last  event. 

ARRANGEMENT:  ARFCW5  is  a one  dimensional  array. 

ARFCW5(I)  contains  the  weighting  factor  for  a target 
of  weapon  code  I for  I = 1,  . . . , N 

where  N is  the  maximum  ground  element  weapon  code. 

INITIALIZATION:  Required 

USERS:  AIRPOR 

LENGTH:  N 

C OMMON/ ARFC  WG/ 

CONTENTS:  ARFCW6  contains  a weighting  factor  for  an  element  which 

is  being  considered  as  a target  for  aerial  vehicle  fire  which 
is  presently  being  fired  on  by  a friendly  ground  element. 

ARRANGEMENT:  ARFCW6  is  a one  dimensional  array. 

ARFCWG(I)  contains  the  weighting  factor  for  a target 
of  weapon  code  I for  1 - 1,  . ...  N 

where  N is  the  maximum  ground  element  weapon  code. 

INITIALIZATION:  Required 

USERS:  AIRPOR 

LENGTH:  N 


A-ll 


C OMMON/ARFC  W7/ 


CONTENTS:  ARFCW7  contains  a weighting  factor  for  an  element  which 

is  being  considered  as  a target  for  aerial  vehicle  fire  which 
is  presently  being  fired  on  by  another  firendly  aerial  vehicle. 

ARRANGEMENT:  ARFCW7  is  a one  dimensional  array. 

ARFCW7(I)  contains  the  weighting  factor  for  a target  of 
weapon  code  I for  I = 1,  ....  N 


INITIALIZATION: 

USERS: 

LENGTH: 


where  N is  the  maximum  ground  element  weapon  code. 

Required 

AIRPOR 

N 


COMMON/ARFCW8/ 

CONTENTS:  ARFCW8  contains  a weighting  factor  for  an  element  which 

is  being  considered  as  a target  for  aerial  vehicle  fire  which 
is  presently  being  fired  on  by  another  aerial  vehicle  in  the 
current  section. 

ARRANGEMENT:  ARFCW8  is  a one  dimensional  array. 

ARFCW8(I)  contains  the  weighting  factor  for  a target  of 
weapon  code  I for  1=1,...,  N 

where  N is  the  maximum  ground  element  weapon  codo. 
INITIALIZATION:  Required 


USERS:  AIRPOR 


COMMON/ARFCW9/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH 


CONTENTS: 

ARRANGEMENT: 


ARFCW9  contains  the  weighting  factor  for  an  element  which 
is  being  considered  as  a target  for  aerial  vohicle  fire  and 
which  is  currently  being  detected  by  another  aerial  vehicle 
in  the  current  section. 

ARFCW9  is  a one  dimensional  array. 

ARFCW9(I)  contains  the  weighting  factor  for  a target  of 
weapon  code  I for  I - 1,  . . . , N 

where  N is  the  maximum  ground  element  weapon  code. 

Required 

AIRPOR 

N 


COMMON/A  TDIR/ 

ATDIR  contains  an  array  that  specifies  the  orientation  of 
a sector  that  is  used  by  aerial  sections  conducting  direct 
fire  attacks.  The  sector  is  defined  by  the  limits  in 
COMMON/AT  1JM/.  See  Figure. 

ATDIR  is  a one-dimensional  array. 

ATDIR(I)  whose  entries  are  defined  on  the  interval 
(-it  ) (real,  radians) 


where 


1 


for  the  blue  force,  and 
for  the  red  force. 
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INITIALIZATION:  Required 


USERS:  RTATAK 

LENGTH:  2 

COMMON/ATLIM/ 

CONTENTS:  ATLIM  contains  an  array  that  specifies  the  angular  limits 

of  a sector  from  which  direct  fire  attacks  by  aerial  sections 
may  be  conducted.  The  orientation  of  the  sector  is  given 
by  the  contents  of  COMMON/ATDIR/. 

ARRANGEMENT:  ATLIM  is  a one-dimensional  array. 

ATLIM(I)  (real,  radians) 


where 


I 


for  the  blue  force,  and 
for  the  red  force. 


INITIALIZATION:  Required 
USERS:  RTATAK 


LENGTH: 


2 


r 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


COMMON/A  VA/ 


AVA  contains  presented  areas  of  helicopter  targets  and  is 
used  in  the  ground-to-air  detection  model.  All  elements 
in  a helicopter  section  have  identical  characteristics. 


AVA  is  a two  dimensional  array. 
A VA(I,  J)  (real,  meters2) 


where 


I 


J 


1 frontal  cross  sectional  area 
< 2 side  cross  sectional  area 
3 bottom  cross  sectional  area, 

1,  , NA3  helicopter  weapon  codes 


where 

NA3  ~ maximum  number  of  weapon  codes  assigned  to  aerial 
vehicle  elements.  Note  that  weapon  codes  assigned 
in  COMMON/ LWCOD/  are  numbered  for 
1,  . . . , MAXLWC  for  ground  elements  and  from 
MAXLWC  + 1,  . . . , MAXWC  for  aerial  vehicle 
elements.  Thus,  NA3  MAXWC  - MAXLWC,  iuul 
for  an  arbitrary  element  K in  a section,  J is  com- 
puted by  the  relation  .1  LWCOD(K)  - MAXLWC. 

Required 

DET1I 


LENGTH: 


3*NA3 


COMMON/BLUDET/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 


BLUDET  contains  the  detection  codes  for  each  blue  element; 
a 0 for  no  knowledge,  a 1 for  approximate  knowledge,  a 2 
for  full  visual  detection,  and  a 3 for  a pinpoint  detection. 

BLUDET  is  a two-dimensional  array  of  halfwords: 

BLUDET(I,  J)  INTEGER  * 2 

I = 1 , . . . , NUMBLU  the  blue  element  numbers 
J = 1 , . . . , NUME  LE  - NUMBLU  the  red  element  numbers 
reduced  to  the  range  1 , NRED 


when* 


NUMBLU  is  the  total  numlxr  of  blue  elements,  NltEI)  is  the 
total  number  of  red  elements,  and  NUMELE  is  the  total 
number  of  elements. 

None 

AIRFIR,  AIRPOR,  GETDET,  EDET,  IDETP,  KOMDET 
NUMBLU  * NRED  halfwords  = (NUMBLU  * NRED),  H 


COMMON/BNEUT/ 

BNEUT  contains  one-half  the  deflection  dimension  of  an 

artillery  neutralization  ellipse  for  each  fire  pattern  type. 

BNEUT  is  a two-dimensional  array. 

BNEUT(I,J)  contains  the  dimension  for  the  I^1  fire 
pattern  of  the  J^1  artillery  weapon  code 
for  I = 1, .. . ,5;  J = 1, .... N where  N 
is  the  maximum  artillery  unit  weapon 
code  (real,  meters). 

Required,  not  altered  during  execution. 


USERS: 


ARLETH 


COMMON/  BliAIIi/ 


CONTENTS:  BRAIR  contains  firing  data  for  an  aerial  vehicle  of  a given 

weapon  code  when  firing  a given  suppressive  fire  weapon. 

ARRANGEMENT:  BRAIR  is  a three  dimensional  array. 

BRAIR(I,  J,  K)  contains  the  data  for  ammunition  code  I by 
aerial  vehicle  weapon  codes 


I = 1,  ...»  6 ammo  types. 


J 


K 


' 

1 number  of  rounds  fired  per  burst 

2 desired  number  of  bursts  per  firing  event 
\ 2 firing  rale  in  rounds  per  second 

•1  time  between  bursts 

where  N is  the  maximum  number  of 
aerial  vehicle  weapon  codes. 


INITIALIZATION:  None 


USERS: 

LENGTH: 

COMMON/C  BDET/ 


1 1 EIRE,  WASAIR 
6 *4  * N 


CONTENTS:  CBDET  contains  the  rate  at  which  an  aerial  unit  detects 

an  artillery  unit  to  be  observed  during  a counte rbatle ry 
mission. 


ARRANGEMENT:  CBDET  is  a one-dimensional  array. 

CBDET (I)  (real,  seconds-1) 
where 

I 1, . ..  ,MWAIR-MWMIS  aerial  unit  wea|x>n  codes.  1 


INITIALIZATION:  Required 


USERS:  C BOBS 


LENGTH:  MWAIR  - MW  MIS 


1 See  COMMON/CBERK/  for  a definition  of  aerial  unit  weapon  code. 
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COMMON/C  BE  RR/ 


CONTENTS:  CBERR  contains  parameters  of  the  exponential  function  that 

specifies  the  standard  deviation  of  the  distribution  of  errors 
in  battery  location  reported  by  an  aerial  unit  that  has  detected 
a battery  during  a counterbattery  observation  mission. 

ARRANGEMENT:  CBERR  is  a two-dimensional  array. 

CBERR(I.J)  (real) 
where 

{1  indicates  the  value  of  the  function  after 
zero  observation  time  (meters) 

2 indicates  the  decay  rate  (meters /second) 

J=  1, . . . .MWAIR-MWMIS  aerial  unit  weapon  codes . 1 


INITIALIZATION:  Required 

USERS:  CBCONT 

LENGTH:  2 * (MWAIR-MWMIS) 



^Tor  aerial  unit  N,  the  aerial  unit  weapon  code  is 

J = LWCOD(NUME  LE+NUMART+MISTUN+N)  - MWMIS. 
See  COMMON/NUMBER/  and  COMMON/ LWCOD/. 


COMMON/C  BNEUT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


C BNEUT  contains  radii  about  firing  batteries  in  which  in- 
coming projectiles  produce  slight  neutralization  to  the  entire 
battery  operation  (see  COMMON/STNEUT/). 

C BNEUT (I)  contains  the  radius  about  battery  I (real,  meters) 

for  I = 1 , ....  N 

where 

N is  the  number  of  firing  batteries. 

Required. 

ARLETH 

N 


COM  MON/CC  LOCK/ 

CCLOC’K  contains  the  current  clock  time  of  CSW  teams. 
CCLOCK  is  a one-dimensional  array. 

CCLOCK(I)  (real,  seconds) 

I 1, . . . , NC'SWMX  crew  numbers 
None 

CSMOVE,  CSWCON 


LENGTH: 


NC'SWMX 


COMMON/CF/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CF  stores  an  array  containing  the  critical  threat  ratio  used 
in  determining  if  an  intense  fire  fight  exists  (real). 


CF  is  a one -dimensional  array. 


CF(K)  the  ratio  of  known  enemy  firers  to  friendly 

survivors  which,  if  exceeded,  determines  that 
an  intense  fire  fight  exists  for  an  FO  of  type  K 
where 


blue  artillery  FO, 
red  artillery  FO, 
blue  ME3TIC  FO, 
red  MISTIC  FO, 
blue  special  FO,  and 
red  special  FO. 


Required 


ARFO,  DARFO,  HELFIR 
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COMMON/C  FUEL/ 

CFUEL  contains  the  critical  fuel  quantity  for  each  element 
in  an  aerial  section. 

CFUEL  is  a one-dimensional  array. 

CFUEL(I)  (real,  pounds) 

where 

I = 1, . . . ,N  helicopter  weapon  codes  (see 

COMMON/ANGLIM/  for  helicopter 
weapon  code  definition) . 

Required 

RETIRE,  FIJKLD 

N 
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COMMON/CKANG/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 


CKANG  represents  one-half  limiting  angle  of  aerial  ob- 
server's scanning  pattern. 

CKANG  is  a one-dimensional  array. 

CKANG(I)  (real,  radians) 

where 

/ 

1 wide  angle  search  used  while  looking 
for  targets 

' “ j 2 narrow  angle  search  used  while  element 
| has  a target. 

Required 
DETT,  ATAN5 
2 


COMMON/C  LKFB/ 

CLKFB  contains  the  battle  time  of  the  previous  event  for 
each  artillery  firing  battery. 

CLKFB  is  a one-dimensional  array. 

CLKFB(I)  (real,  seconds) 

where 

CLKFB(l)  contains  the  time  lor  the  Ith  battery 

for  I = N where  N is  the  maximum  number  of 

artillery  firing  batteries. 


None 


USERS: 


A FB,  WRTART 


COMMON/COPAX/ 

COPAX  stores  an  ordered  array  containing  the  X component 
of  acceleration  recorded  for  aerial  vehicle  sections  (see 
COMMON/COPT/,  COMMON/ COPPX/,  and  COMMON 
/COPVX/). 

COPAX  is  a two-dimensional  array. 

COPAX(K,  N)  (real,  meters/second2) 
where 

K = 1 RTSMAX  movement  data  set;  i.  e. , the  number  of 

instantaneous  time,  position,  velocity,  and  acceleration 
component  values  to  be  stored  for  later  interpolation  (integer, 
set  inAPPINT,  currently  20),  and 

N 1, . . . , NSEC  aerial  section  numbers. 

INITIALIZATION:  None 

USERS:  APPINT 

LENGTH:  RTSMAX*NSEC 


COMMON/COPAY/ 

CONTENTS:  COPAY  stores  an  ordered  array  containing  the  Y component 

of  acceleration  recorded  for  aerial  vehicle  sections  (see 
COMMON/COPT/,  COMMON/COPPY/,  and  COMMON 
/ COPVY/). 

ARRANGEMENT:  COPAY  is  a two-dimensional  array. 

COPAY(K,  N)  (real,  meters/second2) 
where 

K 1, . . . , RTSMAX  movement  data  set,  and 
N 1, . . . , NSEC  aerial  section  numbers. 

INITIALIZATION:  None 
USERS:  APPINT 


CONTENTS: 


ARRANGEMENT: 


LENGTH: 


RTSMAX*  NSEC 


COM  M ON/ COP  A Z/ 


CONTENTS:  COPAZ  slores  an  ordered  array  containing  the  '/  component 

of  acceleration  recorded  lor  aerial  vehicle  sections  (see 
COMMON/COPT/,  COMMON/ COPPZ/,  and  COMMON 
/COPVZ/). 

ARRANGEMENT:  COPAZ  is  a two-dimensional  array. 

COPAZ(K,  N)  (real,  meters/second2) 


where 

K 1, ...»  RTSM  AX  movement  data  set,  and 
N 1,...,  NSEC  aerial  section  numbers. 
INITIALIZATION:  None 


USERS:  APPINT 

LENGTH:  ItTSMAX  1 NSEC 


COMMON/ COPPX/ 

CONTENTS:  COPI  X stores  an  ordered  array  containing  the  battlefield 

X coordinates  that  specify  the  movement  traces  for  aerial 
vehicle  sections  (see  COMMON/COPT/,  COMMON/COPVX/, 
and  COMMON/COPAX/). 


ARRANGEMENT:  COPPX  is  a two-dimensional  array. 

COPPX(K,  N)  (real,  meters) 
where 

K 1,...,  ItTSMAX  movement  data  sets;  i.  e. , the  number 
of  instantaneous  lime,  position,  velocity,  and  acceleration 
component  values  to  be  stored  for  later  Interpolation  (Integer, 


COMMON/COPPY/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


COPPY  stores  an  ordered  array  containing  the  battlefield 
Y coordinates  that  specify  the  movement  traces  for  aerial 
vehicle  sections  (see  COMMON/COPT/,  COMMON/COP VY/, 
and  COMMON/COPAY/). 

COPI'Y  is  a two-dimensional  array. 

COPPY(K,  N)  (real,  meters) 

where 

K 1, . . . , RTSMAX  movement  data  sets,  and 
N 1, . . . , NSEC  aerial  section  numbers. 

None 
APPINT 
RTSMAX*  NSEC 


COMMON/  COPPZ/ 

COPPZ  stores  an  ordered  array  containing  the  battlefield 
Z coordinates  that  specify  the  movement  traces  for  aerial 
vehicle  sections  (see  COMMON/COPT/,  COMMON/COPVZ/, 
and  COMMON/COPAZ/). 

COPPZ  is  a two-dimensional  array. 

COPPZ(K,N)  (real,  meters) 

where 

K = 1, . . . , RTSMAX  movement  data  sets,  and 
N 1, ...»  NSEC  aerial  section  numbers. 

None 

APPINT 


LENGTH: 


RTSMAX*  NSEC 


COMMON/COPT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 
I US  I KS: 

LENGTH: 


COPT  stores  an  array  containing  clock  UmcB  at  which 
movement  data  sets  lor  aerial  vehicle  sections  are  stored 
(see  COMMON/C  OP  PX/,  COMMON/COPVX/  and 
COMMON/COPAX/). 

COPT  is  a two-dimensional  array. 

COPT(K,N)  (real,  seconds) 

where 

K = 1, . . RTS  MAX  movement  data  sets , and 

N = 1, . . . , NSEC  aerial  section  numbers. 

None 

APPINT 

RTS  MAX  * NSEC 


COMMON/COPVX/ 

COPVX  stores  an  ordered  array  containing  the  X components 
of  velocity  recorded  for  aerial  vehicle  sections  (see 
COMMON/COPT/,  COMMON/ COPPX/,  and  COMMON 
/COPAX/). 

COPVX  is  a two-dimensional  array. 

COPVX(K,  N)  (real,  meters/second) 
where 

K 1, . ..,  RTSMAX  movement  data  sets;  i.  o. , the  number 
of  instantaneous  time,  position,  velocity,  and  acceleration 
component  values  to  be  stored  for  later  interpolation  (integer, 
set  in  APPINT,  currently  20),  and 

N I,...,  NSEC  aerial  section  numbers. 

None 

APPINT 


RTSMAX  * NSEC 
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COMMON/COPVY/ 


CONTENTS:  COPVY  stores  an  ordered  array  containing  the  Y component 

of  velocity  recorded  for  aerial  vehicle  sections  (see 
COMMON/COPT/,  COMMON/COPPY,  and  COMMON 
/COPAY/). 

ARRANGEMENT:  COPVY  is  a two-dimensional  array. 

COPVY(K,  N)  (real,  meters/second) 
where 

K 1, . . . , RTSMAX  movement  data  sets,  and 
N 1,...,  NSEC  aerial  section  numbers. 

INITIALIZATION:  None 
USERS:  APPINT 

LENGTH: RTSMAX*NSEC  

COMMON/COPVZ/ 

CONTENTS:  COPVZ  stores  an  ordered  array  containing  the  Z component 

of  velocity  recorded  for  aerial  vehicle  sections  (sec 
COMMON/COPT/,  COMMON/ COPPZ/,  and  COMMON 
/COPAZ/). 

ARRANGEMENT:  COPVZ  is  a two-dimensional  array. 

COPVZ(K,  N)  (real,  meters/second) 
where 

K - 1, . . . , RTSMAX  movement  data  sets,  and 
N 1, . . . , NSEC  aerial  section  numbers. 

INITIALIZATION:  None 
USERS:  APPINT 


l,  ENG  Til: 


RTSMAX*  NSEC 


COMMON/CSDSP/ 

CONTENTS:  Common  CSDSP  contains  the  increase  in  tactical  difficulty  at 

a route-selection  grid  point  due  to  an  intervisible  strong  |>oint 
at  distance  CDIST  where  TKC(K  1 1)  < CDIST  < TEC(K). 

See  COMMON/TEC/. 

ARRANGEMENT:  CSDSP  is  a one-dimensional  array. 

CSDSP(I)  (real) 

I 1, . . . , NRWP  ' NBWP 
where 

NRWP  is  the  number  of  red  weapons  at  a strong  point  and 
NBWP  is  the  number  of  blue  weapons  at  a strong  point. 

INITIALIZATION:  Required 

USERS:  CSItTSL 

LENGTH:  NRWP  ' NBWP 

COMMON/  CSDKE/ 

CONTENTS:  CSDEE  contains  the  increase  in  tactical  difficulty  at  a route 

selection  grid  point  to  a Unown  intervisible  enemy  element 
at  distance  CEDIS,  where  TEC(K  1 1)  < CEDIS  < TEC(K). 
See  COM  MON/ TEC/. 

ARRANGEMENT:  CSDEE  is  a one-dimensional  array. 

CSDEE  (I)  (real) 

I 1, . . . , MNERT,  the  total  number  of  element  weapon  codes 
INITIALIZATION:  Required 
USERS:  CSRTSL 


LENGTH: 


MNERT 


r 


f 


COMMON/CSWDFl 

CONTENTS:  CSWD El  contains  event  variables  used  by  the  CSW  model. 

ARRANGEMENT:  1)  NCR  CSW  unit  number 

2)  NKWEP  weapon  code  of  CSW  unit 

3)  NCTOT  weapon  code  of  CSW  unit 

4)  LAST  the  number  of  the  last  movement  control  point 

5)  JC  number  of  grid  spacings  to  either  side  of  the  center 

of  the  route  selection  grid. 

(!)  XC  current  elements  X- coordinate 
7)  YC  current  elements  Y-coordinate 
H)  EAPC  carrier's  APC  number 
9)  ICREW  CSW  units  regular  element  number 

INITIALIZATION:  None 

USERS:  CSWCON,  CSMOVE,  CSWCRD,  CSRTSL,  CRTLOC, 

CSTIME,  CSWDES,  CXYLOC,  MOUNT 


LENGTH: 
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COMMON/CSWINI)/ 


CONTKNTS:  Common  CSWIN1)  contains  general  fixed  variables  used  in  the 

crew-served  weapon  (CSW)  model. 

A RRANGEMENT:  1)  CALLOW  - maximum  allowable  distance  from  primary  to 

alternate  desired  firing  position,  expressed  in  units  of 
SPACE. 

2)  ICRMAX  - number  of  points  in  range- fire  |>ower  index 
versus  speed  determination. 

3)  1NCMAX  - number  of  points  for  limiting  speed  determina- 
tion. 

4)  KSP(l)  - number  of  red  slrongpoints 

5)  KSI  (2)  - number  of  blue  slrongpoints 

(i)  NAPCMX  - total  number  of  AFC's  in  the  battle 
7)  NCSWMX  - total  number  of  CSW  teams  used  in  the  battle, 
s)  NCWMAX  - maximum  number  of  weapon  codes  used  by 
crew  served  weapon  teams. 

!))  IlLIMIT  - maximum  length  of  line  along  which  CSW  teams 
are  to  be  deployed  in  the  defensive  mode. 

10)  SPACE  - distance  between  grid  points  of  both  the  fire 
position  grid  and  route  selection  grid  in  CSW  model. 

11)  CEVTIM  - current  event  time 

12)  MWC(l)  - maximum  number  of  red  weapons  at  a red 
slrongpoint. 

13)  MWC(2)  - maximum  numlx-r  of  blue  weapons  at  a blue 
slrongpoint. 

INITIA  LIZATION:  Required 

USERS:  CSWCON,  CSMOVE,  CSWC.RD,  CSRTSL,  CSTIME,  CRTLOC, 

CSWDES,  CXYLOC 


LENGTH: 
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COMMON/  CSXRT/ 


CSXRT  contains  the  X-coordinates  of  the  I*h  movement  control 
point  specifying  the  movement  path  of  dismounted  CSW  unit 
NCR. 

CSXRT  is  a two-dimensional  array. 

CSXRT  (I,  NCR)  (real,  meters) 

where 

I 1, ....  NPTMAX,  (the  maximum  number  of  movement 
control  points) 

NCR  1, . . . , NCSWMX  (CSW  number) 

None 

CSMOV,  CSRTSL,  CSWCON,  CSWGR1),  MOUNT 
NCSWMX + NPTMAX 


COMMON/ CSYRT/ 

CONTENTS: 

CSYRT  contains  the  Y coordinate  of  the  I*-*1  movement  control 
point  specifying  the  movement  path  of  dismounted  CSW  unit 
NCR 

ARRANGEMENT: 

CSYRT  is  a two-dimensional  array. 

CSYRT(I,  NCR)  (real,  meters) 

where 

I 1 NPTMAX.  the  maximum  number  of  movement 

control  points 

NCR  1,...,  NCSWMX,  CSW  number 

INITIALIZATION: 

None 

USERS: 

CSMOV,  CSRTSL,  CSWCON,  CSWGRI),  MOUNT 

LENGTH: 

NCSWMX*  NPTMAX 
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CONTENTS: 

ARRANGEMENT: 


INTriA  LIZATION: 
USERS: 

LENGTH: 


COMMON/  CW/ 


CONTENTS:  CW(l)  weight  (relative  importance)  assigned  to  factor  1 in 

the  attack  fire-position-selection  grid 

ARRANGEMENT:  CW(1)  (real) 

I 1,  weight  of  TGCOV  (target  cover) 

I 2,  weight  of  CSWCO  (CSW  cover) 

I 2,  weight  of  RF1  (range- firepower  index) 

Note:  0 < CW(I)  < 1 and  | CW(I)  1 

f 1 

INITIALIZATION:  Required 

USERS:  CSWDES 

LENGTH:  3 

COMMON/ CXCUR/ 

CONTENTS:  CXCUR  contains  the  X-coordinale  of  a CSW  current  position 

ARRANGEMENT:  CXCUR  is  a one-dimensional  array 

CXCUR(I)  (real,  meters) 

where 

I - 1,  NCSWMX,  the  maximum  number  of  CSW's  in  the  battle 

INITIALIZATION:  None 

USERS:  CSMOV,  CSWCON,  CSWGRD,  MOUNT 

LENGTH:  NCSWMX 


COMMON/  CYCUR/ 


CONTENTS:  CYCUR  contains  the  Y coordinate  of  a CSW  current  position 

ARRANGEMENT:  CYCUR  is  a one- dimensional  array 

CYCUR(I)  (real,  meters) 

where 

1 1 NCSWMX,  the  maximum  number  of  CSW's  in  the 

battle 

INITIALIZATION:  None 


USERS:  CSMOV,  CSWCON,  CSWGRD,  MOUNT 

LENGTH:  NCSWMX 


COMM  ON/ DC W/ 

CONTENTS:  Common  DCW  contains  the  weight  (relative  importance) 

assigned  to  factor  I in  the  defensive  fire  position  selection 
grid. 

ARRANGEMENT:  DCW(I)  (real) 

where 

I - 1 weight  assigned  relative  to  percent  of  threat  location 
covered 

1-2  weight  assigned  relative  to  crew  concealment 
INITIALIZATION:  Required 
USERS:  CSWGRD 


LENGTH:  2 
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kC 


COMMON/DDPTS/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


1 

DDPTS  contains  the  flight- range  (meters)  curve  for  direct- 
fire  missile  flights. 

DDPTS  is  a one-dimensional  array. 

DDPTS(l) 

I = 1,  2,  •••,  N 

where 

DDPTS(I)  - the  distance  down  range  at  time  l)TPTS(l) 

(see  COMMON/DTPTS), 

DDPTS(l)  - 0.0,  and 

N = number  of  distance  points. 

Required 

FINAL 

N 

COMMON/DE  F EC  N/ 

DEFFCN  contains  the  traction  of  the  nonretired  portion  of 
an  aerial  unit  which  must  be  seeking  defensive  positions 
before  the  unit  itself  will  seek  a defensive  position. 

DEFFCN  is  a one-dimensional  array. 

DEFFCN(I)  (real) 

where 

I = 1,2,...  ,MWAIR-MWMIS  aerial  unit  weapon  codes . 

Required 

ATDEC 

MWAIH-MWMIS 


COMMON/DELAY/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


DELAY  contains  coordinates  of  holding  positions  for  aerial 
units.  The  positions  are  used  when  a unit  wishes  to  retire, 
seek  a defensive  position  or  wait  for  mission  assignment. 

DELAY  is  composed  of  a three-dimensional  array  and  four 
variables  indicating  the  size  of  the  array. 

1 . NBDP  total  number  of  blue  holding  positions 

2.  NRDP  total  number  of  red  holding  positions 

3.  NBRP  number  of  blue  retirement  positions 

(1  — NBRP  - NBDP) 

4.  NRRP  number  of  red  retirement  positions 

(1  — NRRP  — NBDP) 

5.  DELAY(I,J,K)  (real,  meters) 


where 


I 


/ 

1 for  blue  force , and 

< 

2 for  red  force. 


J = 


for  the  holding  position  X coordinate,  and 


for  the  Y coordinate. 


K - 


1, .. . ,NBRP  or  1 NRRP  indicating  the 

number  of  the  retirement  position,  and 

NBRP+  1, . ..  ,NBDP+  1 or  NRRP+  1 

< NRDP  + 1 indicating  the  number  of  the 
defensive  or  waiting  position  (values  for 
K = NBDP+  1 and  K = NRDP+  1 are  re- 
served for  a unit's  present  position). 


Required  for  all  entries  except  1=1,2;  J - 1,  2; 
K = NBDP  + 1 or  K = NRDP  + 1. 


DEFPOS 

4 *■  2*2*  (maximum  of  NBDP  1 I and  NRDI*  I) 
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COMMON/DELD/ 


CONTENTS:  DELD  contains  the  deflection  aim  point  adjustment  dimension 

for  an  artillery  firing  battery  in  firing  successive  volleys 
of  a walking  fire  pattern. 

ARRANGEMENT:  DELD  is  a two-dimensional  array. 

DELD(I,J)  contains  the  dimension  lor  the  volley 
of  the  Jth  artillery  unit  weapon  code  lor 

I = 1 0 ; J I , . . . , N where  N is  the 

maximum  artillery  unit  weapon  code 
(real,  meters). 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  ARLETI1 

LENGTH:  6 * N 

I 

COMMON/DE  LR/ 

CONTENTS:  DELR  contains  the  range  aim  point  adjustment  dimension 

for  an  artillery  firing  battery  in  firing  successive  volleys 

of  a walking  fire  pattern. 

ARRANGEMENT:  DELR  is  a two-dimensional  array. 

DELR(I,J)  contains  the  dimension  for  the  I*-*1  volley  ol 
the  -|th  artillery  unit  weapon  code  for 

l 1 ,...,<»;  J I N where  N is  the 

maximum  artillery  unit  weapon  code. 

(real,  meters) 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  ARLETH 

LENGTH:  6 * N 


<* 
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COMMON/DFSAIR/ 


CONTENTS: 

ARRANGEMENT!’: 


INITIALIZATION: 

USERS: 


DESAIR  contains  desirability  factors  for  an  air  section 
(consisting  of  a given  number  of  suppressive  and  point  lire 
weapons)  engaging  an  enemy  ground  complex  consisting  of 
a given  number  of  light  and  heavy  targets., 


DESAIR  is  a four-dimensional  array.  (Integer*2) 


DESAIR(I,  J,  K,  L) 


f 

-1  nonallowed  combination,  or 
R desirability  factor  for  a section 
firing  against  1-1  heavy  targets, 
\ J-l  light  targets,  with  K-l  sup- 
pressive fire  weapons  and  J-l 
point  fire  weapons 


where 


R > 0 

I 1,...,  NAVY  • I where  NAVY  is  the  maximum  number  of 
heavy  targets  which  may  be  engaged  by 
an  air  section 

J 1,...,NLGT  + 1 where  NLGT  is  the  maximum  number  of 
light  targets  which  may  be  engaged  by  an 
air  section 

K 1,...,  NAF'V  + I where  NAEW  is  the  maximum  number  of 

suppressive  fire  weapons  which  may  be 
employed  by.  an  air  section 

L - I, . . . , NPFW  + 1 where  NPFW  is  the  maximum  number  of 

point  fire  weapons  which  may  be  employed 
by  an  air  section. 


Required 

AIRFIR 

[(NAVY  + 1)*(NLGT  i 1)<(NAFW  + 1)*(NPFW  <T))  , 11 


LENGTH: 


COMMON/DISMTT/ 


1 


CONTENTS:  Common  DISMTT  contains  the  time  for  a CSW  team  oi  wea|K>n 

code,  NKWEP,  to  dismount  from  their  APC. 

ARRANGEMENT:  DISMTT(NKWI’)  (real,  seconds) 

NKWEP  1,...,  Nt'WMAX  CSW  weapon  code 

INITIALIZATION:  Required 

USERS:  CSWCON,  MOIIN'I’ 

LENGTH:  NCWMAX 

c ommon/d  t pts/ 

CONTENTS:  DTPTS  contains  the  time  (seconds)  from  launch  for  direct- 

fire  missile  flights. 

ARRANGEMENT:  DTPTS  is  a one-dimensional  array. 

DTPTS(I) , 

I = 1,  ••• , N 

where  DTPTS(I)  is  the  time  from  launch  at  distance  (joint  I, 
DTPTS(l)  = 0.0,  and 
N = number  of  distance  points. 

INITIALIZATION:  Required 
USERS:  FINAL 

LENGTH: N _____ 
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COMMON/DURC/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


DURC  stores  an  array  containing  the  estimated  duration 
time  of  an  FO  Bravo  target. 

DURC  (K , L)  (real , seconds) 

where 

{1  regular  FO  Bravo,  and 
2 special  FO  Bravo. 

L = I,...,MWART  artillery  unit  weapon  code 
Required 
AFO 

2 * MWART 


COMMON/  DURFB/ 

DURFB  contains  the  specified  duration  time  of  an  artillery 
fire  mission  or  the  duration  time  of  a target  assigned  to  an 
aerial  unit.  Time  durations  for  lauchers  are  not  specified 
in  DURFB. 

DURFB  is  a one-dimensional  array: 

DURFB(I)  (real,  seconds) 

contains  the  duration  time  for  the  I*"*1  fire  support  firer 
where 

1=1,. . .,  NUMART  + ITOTLN  + NUMAVT  firer  support 

firer  numbers 

and 

NUMART  - number  of  artillery  firing  batteries 
ITOTLN  number  of  launchers,  and 

NUMAVT  number  of  aerial  vehicle  teams. 
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Values  of  DURFB(I),  I N UMLAUT  » 1, . . . , 

NUMART  + ITOTLN,  are  not  currently  used. 

INITIALIZATION:  None 

USERS:  AFB,  AIRFB,  MISEND,  PRMSET,  CMMIS 

LENGTH:  NUMART  + ITOTLN  + NUMAVT 

COMMON/DURON/ 

CONTENTS:  DURON  stores  an  array  containing  the  expected  target 

duration  time  for  an  on-call  target  triggered  by  friendly 
elements. 

ARRANGEMENT:  DURON(I)  (real,  seconds) 

where 

I = 1 20  concentration  number. 

INITIALIZATION:  Required 
USERS;  AFO,  FSCIIEK 

LENGTH:  20 

COMMON/DWC/ 

CONTENTS:  Common  DWC  contains  the  weight  (relative  Importance) 

assigned  to  factor  I in  the  CSW  route  selection  grid. 

ARRANGEMENT:  DWC(I)  (real) 

where 

I 1 weight  of  difficulty  factors 
1 2 weight  of  travel  time  factors 

INITIALIZATION:  Required 
USERS:  CSTC'DF 

LENGTH: 

I 


COM  MON/ EC/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


Common  EC  is  the  tactical  difficulty  grid  used  in  CSW  route 
selection  procedures.  This  is  a working  area  matrix. 

EC  is  a two-dimensional  array. 

EC  (I,  J)  (real) 

I 1, ....  20  maximum  grid  points  between  objective  and  APC 
J 1,...,  16  maximum  grid  width  of  route  selection 
Zero,  altered  during  execution 
CSRTSL,  CSTCDF 
20*16 


COMMON/EC  LOCK/ 

EC  LOCK  contains  the  elapsed  battle  lime  for  all  elements. 

See  Table  1.2,  pgs.  1-16,  RF2978-  FR71-3A(U). 

ECLOCK(I)  (real,  seconds) 

where 

I = 1, . . . , NUMELE  subscripts  giving  the  time  for  regular 
elements 

I = N + 1 NSCLK  subscripts  giving  the  time  for 

special  clocks 

I = NSCLK  + 1, . . . , NM IS  subscripts  giving  the  time  for 
missiles 

I - NM  IS  + 1, . . . , NTFDC  subscripts  giving  the  time  for 
forward  observers 

I = NTFO  + 1, . . . , NTFDC  subscripts  giving  the  time  for 
fire  direction  centers  and  radio  nets 

I = NTFDC  + 1, . . . , NTFB  subscripts  giving  the  time  for 
fire  support  firers 

I NTFB  ^ 1, . . . , NCLK  subscripts  giving  the  time  for 
artillery  intelligence  centers 


and 
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r ^ 


NUMELE  number  of  regular  elements 
NSCLK  - NUMELE  f number  of  special  clocks 
NMIS  NSCLK  i number  of  missiles 

NTFO  NMIS  i number  of  forward  observers 
NTEDC  NTFO  ■ number  of  fire  direction  centers 
and  radio  nets 

NTFB  NTFDC  * number  of  fire  support  firers 
NCLK  NTFB  + number  of  artillery  intelligence  centers. 

INITIALIZATION:  Zero,  altered  during  execution. 


USERS: 

ADGCON 

ARLETII 

CSWt'AS 

GET1CE 

MOUNT 

ADTIC 

ATKPRM 

CSWCON 

HGKT 

MOV 

A FB 

BTLETII 

FIRCON 

IIRAPIJP 

MVCON 

A FDC 

t'ASELE 

F1RKIL 

INTELL 

NEW  Ft) 

A Ft) 

CBCONT 

FIKMOI) 

INTER)' 

1‘ASMIS 

A ESC 

(BOBS 

FIXDAT 

LAUNCH 

I'LOT 

Alt' 

COM 

FLIGHT 

LMUSET 

PREILL 

AIRFB 

C RE ATM 

FSCIIKK 

MAIN 

SEQCNT 

ARFO 

CSRTSL 

G ETHEL 

M FB 

SETSEQ 

APFDYS 

CSMOVE 

FSC'MON 

MANOUT 

SET LOS 

USERS:  (eont. ) SPOT 
SPOTI 
STACLK 
TACMES 
WRITFO 
WRTART 
WRTFRL 
ZILCH 

LENGTH:  NCLK 


COMMON/EDELX/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


EDELX  contains  formation  spacing  information  for  ground 
vehicles. 

EDELX  is  a one-dimensional  array. 

EDELX(I)  (real,  meters) 
where 

I = 1 N subscript  giving  the  formation  lateral 

offset  of  the  1^  element  where  N is 
the  maximum  number  of  elements. 
EDELX  is  measured  relative  to  the 
formation  leader  and  is  positive  if  the 
position  is  to  the  right  of  the  leader. 

Zero,  altered  during  execution. 

MOV 

N 


COMMON/E  LOCZ/ 

ELOCZ  contains  vertical  position  coordinates  for  helicopter 
elements  measured  relative  to  the  local  terrain  elevation. 

ELOCZ  is  a one-dimensional  array. 

ELOCZ (I)  (real,  meters) 

where 

I = 1 N helicopter  element  numbers. 

None 

SECSET,  RTSRCH,  RTCR06 , 1IELMOV 


LENGTH: 


N 


COMMON/EMICK/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


EMICIl  contains  the  micro-terrain  deviation  from  the 
macro-terrain  for  each  element. 

EMICIt  is  a linear  array. 

EMIClt(I)  (real,  meters) 

1 = 1,  • • • , N element  numbers 

where  N is  the  total  number  of  elements. 

Required 

G E TICE,  COV,  FHtCON,  RTS  EL,  MOV,  CONC,  LOS  PC 
N 


COMMON/ESMH/ 

ESM1I  corresponds  exactly  to  ESM  but  is  associated  with 
estimates  of  difficulty  prepared  by  a helicopter  section 
leader. 

ESMH(I)  (real) 

I = i N weapon  code  numbers  of  enemy  elements 

where 

N = total  number  of  weapon  codes. 

Required 
RTSE LH 
N 


COMMON/E  VHTIM/ 


CONTENTS:  EVHTIM  contains  the  standard  event  time  for  helicopter 

elements. 

ARRANGEMENT:  EVHTIM  is  a one-dimensional  array. 

EVHTIM (I)  (real,  seconds) 
where 

1 = 1,.. . ,NA3,  where  NA3  is  the  maximum  number  of  weapon 
codes  assigned  to  aerial  vehicle  elements.  Note  that  weapon 
codes  assigned  in  COMMON/LWCOD/  are  numbered 

1 MAXLWC  for  ground  elements  and  from 

MAXLWC  + 1, .. . , MAXWC  for  aerial  vehicle  elements. 

Thus,  NA3  = MAXWC  “ MAXLWC 

INITIALIZATION:  Required 

USERS:  ATKPRM,  1IELMOV,  RTATAK , RTJOIN 

LENGTH:  NA3 


COMMON/E  VTIM/ 

CONTENTS:  EVTIM  contains  the  standard  event  time  for  a fire  support 

element. 

ARRANGEMENT:  EVTIM  is  a one -dimensional  array. 

EVTIM(I)  (real,  seconds) 
where 

I = 1 , . . . , MWAIR  fire  support  weapon  codes . 
INITIALIZATION:  Required 
USERS:  AIRFB,  MFB,  LAUNCH 

LENGTH:  MWAIR 


I 

I 

I 

i 

J 

I 

i 
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COMMON/FACTL/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


FACTL  contains  firing  data  for  aerial  vehicles  firing  sup- 
pressive fire  bursts  prior  to  firing  a point  weapon. 

FACTL  is  a two-dimensional  array. 

FACTL(I.J)  contains  the  data  for  the  J**1  aerial  vehicle 


where 


I = 


1 number  of  rounds  per  burst 

2 number  of  burst  to  be  fired 

3 time  per  burst 

4 time  between  bursts 

5 total  time  to  fire  all  bursts 


for  J = 1,...,MAXNAV  where  MAXNAV  is  the  maximum 
number  of  aerial  vehicles. 


None 


RTATAK,  WASAIR 
5+MAXNAV 


COMMON/FMHITP/ 

FMHITP  contains  additional  horizontal  and  vertical  dis- 
persions to  be  included  in  hit  probability  determination 
for  a moving  firer. 

FMHITP  is  a four-dimensional  array. 

FMHITP(I,J,K,L)  (real,  mils) 

where 


I = 1, ... ,6 

I = 7 12 

.1  - 1 , . . . , G 
K = 1 , . . . ,0 
L = 1 M 


horizontal  dispersions  corresponding 

to  range  intervals  from 

COMMON/HPRNG/ 

vertical  dispersions  corresponding  to 

range  intervals  from 

COMMON/HPRNG/ 

corresponds  to  the  rough  terrain  code 

of  the  firer's  location 

corresponds  to  speed  intervals  as 

defined  in  COMMON/VKHSPD/ 

corresponds  to  mobility  characteristics 

where  M is  the  maximum  number  of 

characteristics. 
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INITIALIZATION:  Required 


USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


DDSX2 

12*6*6*M 


COMMON/FMOKIL/ 

FMOKIL  contains  the  seconds  of  flight  time  remaining  to  a 
helicopter  after  damage  is  inflicted  by  an  air  defense  weapon. 

FMOKIL  is  a two-dimensional  array. 

FMOKIL(I,J)  (real,  seconds) 
where 

I = 1, . . . , NLETHC  indicates  the  lethality  code  of  the  damage 
inflicted  by  an  air  defense  weapon. 

j = 1, . . . , NA3  indicates  the  weapon  code  of  the  damaged 
helicopter 

where 

NLETHC  is  the  maximum  number  of  lethality  codes  for  an 
aerial  vehicle  target  (1  — NLETHC  —9)  and 

NA3  is  the  maximum  number  of  weapon  codes  assigned  to 
aerial  vehicle  elements.  Note  that  weapon  codes  assigned  in 

COMMON/LWCOD/  are  numbered  1 NAXLWC  for  ground 

elements  and  from  MAXLWC  + 1 MAXWC  for  aerial 

vehicle  elements.  Thus,  NA3  = MAXWC  - MAXLWC. 

Required 

CASHEL 


LENGTH: 


NLETHC*NA3 


COMMON/FOCOM/ 


CONTENTS:  FOCOM  contains  the  time  for  an  artillery  firing  battery  to 

communicate  the  completion  or  deletion  of  a requested 
mission  to  the  requesting  forward  observer. 

ARRANGEMENT:  FOCOM  is  a one -dimensional  array. 

I - 1 MWART 

FOCOM(I)  contains  the  time  for  the  l^*1  artillery  unit  weapon 
code  (real,  seconds) 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB 


LENGTH: MWART 

COMM  ON/FORMS  Z/ 

CONTENTS:  Z analog  of  FORMSX  and  FORMSY.  Used  only  for  aerial 

vehicles. 

ARRANGEMENT:  See  COMMON/FORMSX/. 

INITIALIZATION:  Required 
USERS:  OFFSET 

LENGTH:  7 * N 


CONTENTS: 


COMM  ON/FOR  MZS/ 

Z analog  of  FORMXS  and  l'ORMYS.  Used  only  for  aerial 
vehicles. 


ARRANGEMENT:  See  COMMON/FORMXS/. 
INITIALIZATION:  Required 
USERS:  OFFSET 

LENGTH:  3 


Ml 


i ' 1 \ • 
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COMMON/GOEXAM/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


GOEXAM  contains  the  time  increment  which  is  assessed  to 
a ground-to-air  communicator's  clocktime  when  the  com- 
municator finds  no  search  and  destroy  targets  for  aerial 
attack. 


GOEXAM(I)  (real,  seconds) 


where 

{1  blue  force  communicator,  and 
2 red  force  communicator. 

Required 


A ESC 


2 

COMMON/HALTDS/ 


HALTDS  contains  the  desired  altitude  above  the  terrain  for 
an  aerial  section. 

HALTDS  is  a two-dimensional  array. 


HALTDS  (I,  J) 


(real,  meters) 


where 

1 indicates  section  enroute  movement 

2 indicates  section  search 

3 indicates  section  loiter 

4 indicates  the  initial  point  of  a direct- 

1 = ^ fire  attack 

5 indicates  the  launch  altitude  for 
indirect  fire 

6 indicates  the  initial  point  of  illumination. 

k 

J = 1 N aerial  section  weapon  codes  (see 

COMMON/ANGLIM/  for  weapon  code  definition). 


Required 

RTCROS , RTSRCH , RTLOIT,  RTATAK 
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LENGTH: 


6 * N 


COMMON/IIALTDU/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 
USE  RS: 

I.E  NOTH: 


HALT  DU  contains  the  desired  altitude  above  the  terrain  for 
an  aerial  unit. 

HALT  DU  is  a two-dimensional  array. 

HALTDU(I.J)  (real,  meters) 
where 

{1  indicates  unit  enroute  movement 
2 indicates  unit  search 
3 indicates  unit  loiter. 

J = 1 , . . . , N aerial  unit  weapon  codes  (see 

COMMON/C  BE  RR/  for  definition  of  weapon  code). 

Required 

RTCROS , RTSRCH,  RTLOIT 
3 * N 


COMMON/HCREW/ 

HCREW  contains  the  height  of  a dismounted  crew -served 
weapon  crew. 

HCREW  is  a one -dimensional  array. 

HCREW  (I) 
where 

I = 1 NCWMAX  the  maximum  number  of 

crew-served  weapon  codes. 


Required 

CSRTSL,  CSWDKS,  CSWGRD 
NCWMAX 


A— l*t 


COMMON/H  FORMS/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


H FORMS  contains  the  formation  pattern  number  to  be  used 
by  an  aerial  section  while  operating  independently . 

HFORMS  is  a one-dimensional  array. 

HFORMS(I)  (integer) 

where 

I = 1,...,N  aerial  section  numbers. 

None 


SECPRM,  OFFSET 
N 


COMMON/IHTP/ 

HITP  contains  sets  of  data  used  in  computing  hit  probabilities 
of  rounds  following  sensed  misses  and  rounds  following 
sensed  hits. 

HITP  is  a two-dimensional  array. 


HITP(I,J)  (real,  mils) 


I = 1 

I = 2 
I = 3 


I = 4 


J = 1, N 


subscript  giving  the  total  horizontal  dis- 
persion for  a hit  given  a hit  case  for  a 
stationary  firer  and  a nonpinpoint  situation 
subscript  giving  the  total  vertical  dis- 
persions for  a hit  given  a hit  case  for  a 
stationary  firer  and  a nonpinpoint  situation 
subsc  ript  giving  the  total  horizontal  dis- 
persion  for  a hit  given  a sensed  miss  for 
a stationary  firer  and  a nonpin|x>int 
situation 

subscript  giving  the  total  vertical  dis- 
persion  for  a hit  given  a sensed  miss  for 
a stationary  firer  and  a nonpinpoint 
situation 

where  N is  the  number  of  Jirer-ammuni- 
tion  combination  as  defined  by  ICHAR  in 

common/iammo/. 
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INITIALIZATION:  Required 


A 


USERS:  IIPROB 

LENGTH:  4*N 

COMMON/HITPRB/ 

CONTENTS:  HITPRB  contains  sets  of  horizontal  and  vertical  fixes, 

biases  and  dispersions  used  in  computing  first  round  case 
hit  probability  for  nonpinpoint  situations. 

ARRANGEMENT:  HITPRB  is  a four-dimensional  array. 

HITPRB(I,J,K,L)  (real,  mils) 

I = 1 G subscripts  giving  the  total  horizontal 

dispersions  corresponding  to  range 
intervals  in  COMMON/I  1 PRNG/ 

I = 7,...,  12  subscripts  giving  the  total  vertical 

dispersion  corresponding  to  range  in- 
tervals in  COMMON/HPRNG/ 

I = 13,.. .,18  subscripts  giving  the  total  horizontal 

fixed  biases  corresponding  to  range  in- 
tervals in  COMMON/HPRNG/ 

I 19 24  subscripts  giving  the  total  vertical 

fixed  biases  corresponding  to  range 
intervals  in  COMMON/HPRNG/ 

J = 1, . . . ,G  subscripts  corresponding  to  target 

speeds  as  defined  in  COMMON/TAllSPD/ 
K - 1,...,7  subscripts  corresponding  to  firer-target 
aspect  as  defined  in  COMMON/TARASP/ 
1,  1,...,M  subscripts  corresponding  to  the  firer- 

ammunition  combination  (e.g. , IC'IIAR 
as  defined  in  COMMON/IAMMO/)  where 
M is  the  maximum  value  of  ICHAR. 

INITIALIZATION:  Required. 

USERS:  DDSX3 

LENGTH:  24*6*7* M 


COMMON/HSPEED/ 


CONTENTS:  HSPEED  contains  the  desired  speed  of  an  aerial  unit. 

ARRANGEMENT:  HSPEED  is  a one -dimensional  array. 

HSPEED(I, J)  (real,  meters/second) 
where 

/ 

1 unit  is  performing  enroute  movement 
I = 2 unit  is  searching  for  a target 

3 unit  is  loitering 
v 

J = 1 MWAIR-MWMB  aerial  unit  weapon 

codes  (see  COMMON/C BERR/  for  definition 
of  weapon  code) . 

INITIALIZATION:  Required 
USERS:  H FORM 

LENGTH:  3 * (MWAIR-MWMIS) ___ 

COMMON/HXRT/ 

CONTENTS:  HXRT  contains  the  X coordinates  of  the  movement  control 

points  for  the  lead  element  of  each  aerial  section. 

ARRANGEMENT:  HXRT  is  a two-dimensional  array. 

HXRT(I, J)  (real,  meters) 

where 

j 

I = 1, . . . , 20  indices  for  the  points  in  the  route 

(see  COMMON/XRT/  for  arrangement) 

j 

j = l N aerial  section  numbers  where  N 

is  the  number  of  aerial  sections. 

INITIALIZATION:  None 

USE  RS : HXYMC  P , RTSE  CT , RTLOIT 

LENGTH: 20  * N 
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COMMON/HYRT/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


n 


HYRT  contains  the  Y analog  of  IIXRT. 
See  COMMON/IIXRT/. 

None 

IIXYMCP,  RTSECT , RTLOIT 
20  * N 


COMMON/I  1ZRT/ 

HZRT  contains  the  Z analog  of  IIXRT  and  is  measured 
relative  to  the  zero  elevation  plane. 

See  COMMON/1  IXRT/. 

None 

IIXYMCP,  RTSECT,  RTLOIT 


LENGTH: 


20  * N 


COMMON/IANYPT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


IANYPT  contains  data  items  used  in  analysis  of  the  output 
of  the  simulation.  This  common  area  is  filled  during  exe- 
cution by  a standard  FORTRAN  reading  of  data. 

IANYPT  contains  four  items  as  follows: 

1.  IRAND  - the  initial  random  number  seed  to  be  used 

(see  COMMON/IRANDX/)  (integer) 

2.  IPOINT  - the  initial  FORTRAN  unit  on  which  analysis 

data  is  to  be  written  (usually  unit  1).  If 
IPOINT  is  equal  to  zero,  no  analysis  data 
will  be  written  (integer) 

3.  IPTS(I)  for  I = 1 , ....  4 contains  analysis  points  in 

the  form  of  percentage  of  blue  casualties. 
When  a casualty  point  is  reached,  IPOINT 
is  incremented  by  one  to  write  the  next  set 
of  analysis  data  on  the  next  numbered 
FORTRAN  unit 

4.  IPKMIN  - the  minimum  kill  type  to  be  analyzed. 

Zero,  altered  during  execution. 

MAIN,  FIR  MOD 
7 


COMMON/EBTAMO/ 

IBTAMO  contains  the  ammunition  code  for  an  artillery  firing 
battery  for  assessing  lethality  of  a counterbattery  fire. 

IBTAMO  is  a two-dimensional  array.  (integer*2) 

IBTAMO(I,  J)  contains  the  ammo  code  for  assessing 
lethality  to  the  Ith  battery  by  the  Jth  artillery  weapon 
code  for  I 1,...,8;J  1, ....  MWART  where  MWART 

is  the  maximum  artillery  weapon  code. 

Required,  not  altered  during  execution 

ARLETII,  FLIGHT 

(«♦ MWART),  li 
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COMMON/ICAP/ 


CONTENTS:  ICAP  contains  data  used  in  the  movement  controller. 

ARRANGEMENT:  ICAP  has  two  values  as  follows: 

1.  The  number  of  points  in  the  maneuver  unit  or  aerial 
section  axis  of  advance  (integer). 


2.  The  number  of  points  in  the  optimal  route  of  advance 
(integer). 


INITIALIZATION: 


USERS: 


LENGTH: 


None 

IIELCON 

MVCON 

PICKRT 

RTCROS 


RTLOIT 

RTSEL 

RTSEL1I 

RTSRCII 


2 


COMMON/ICAP2/ 

CONTENTS:  ICAP2  gives  the  number  of  points  in  an  aerial  section's 

route.  This  is  the  number  of  valid  points  in  I1XRT , IIYRT , 
HZRT. 

ARRANGEMENT:  ICAP2  is  a one -dimensional  array. 

ICAP2(I)  (integer) 
where 

I = 1, ...  ,N  aerial  section  numbers  and  N is  the 

total  number  of  aerial  sections. 

INITIALIZATION:  None 

USERS:  HXYMCP,  llTSECT 

LENGTH:  N 
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COM  M ON/  1CECOM/ 


CONTENTS: 

ARRANGEMENT: 


ICECOM  contains  data  pertaining  to 'the  current  element.  It 
is  set  up  by  GETICE  at  the  beginning  of  every  element. 

All  data  apply  to  the  current  element.  ICECOM  contains  32 
values  as  follows: 


1. 

ICE 

current  element  number  (integer) 

2. 

XE 

x-coordinate  (real,  meters) 

3. 

YE 

y-coordinate  (real,  meters) 

4. 

SPD 

speed  (real,  meters/second) 

5. 

DIR 

direction  of  motion  (real,  radians) 

6. 

NSECT 

section  number  (integer) 

7. 

NPOS 

position  in  section  (integer) 

8. 

KILL 

kill  code  (integer) 

9. 

KOLOR 

side  (0  - blue,  1 red,  integer) 

10. 

IFPC 

fire  position  code  (0  not  in  fire  position, 
1 in  fire  position,  integer) 

11. 

IDPC 

desired  position  code  (0  has  not  reached 
desired  position,  1 has  reached  desired 
position,  integer) 

12. 

MOBT 

mobility  type  code  (integer) 

13. 

NPLAT 

platoon  number  (integer) 

14. 

EMICRT 

micro-terrain  elevation  (real,  meters) 

15. 

LSTGT 

target  element  number  (integer) 

16. 

IF1R 

firing  flag  (0  not  firing,  1 direct  fire, 
2 indirect  fire,  integer) 

17. 

IFEELE 

element  number  of  first  enemy  element 
(integer) 

18. 

LEELE 

element  number  of  last  enemy  element 
(integer) 

19. 

MANUN 

maneuver  unit  number  (integer) 

20. 

NEUT 

not  used 

21. 

KWCOD 

weapon  type  code  (integer) 

22. 

TIME 

length  of  last  event  (real,  seconds) 

23. 

LPNPT 

element  number  of  the  pinpointed  element 

24. 

KFUNC 

function  code  (1  launcher,  2 forward 
observer,  0 neither,  integer) 

25. 

NUM 

launcher  number  or  forward  observer 
number  depending  on  KFUNC  (integer) 

26. 

CLOCKT 

clock  time  (real,  seconds) 

27. 

LWPNPT 

element  number  of  waiting  pinpoint 
(integer) 

28. 

LFELTK 

firing  event  list  target  element  number 
(integer) 

29. 

EFELCK 

firing  event  list  clock  lime  (real,  seconds) 

COMMON/ ICECOM/  con't, 


30. 

KOMP 

platoon  net  flag  (1  on  platoon  net, 
0 not  on  platoon  net,  integer) 

31. 

NAT 

aerial  platform  maneuver  unit  number  if 
the  maneuver  unit  of  ICE  consists  of  aerial 
platforms,  0 otherwise  (integer) 

32. 

NASEC 

aerial  section  number  if  ICE  is  in  an  aerial 
section,  0 otherwise  (integer) 

INITIALIZATION:  None 


USERS: 


ADTGSL 

DELETI1 

1 IRA  PUP 

RETIRE 

A EDC 

DELETE 

IIXYMCP 

IlEVAL 

AFO 

DET1I 

INTELL 

RTATAK 

A ESC 

DETSQ 

ISTIIFF 

ItTCROS 

AIRFB 

DETT 

IT  RATE 

RTJOIN 

AIRFIR 

DRFROK 

LAUNCH 

RTLOIT 

AIRPOR 

ELEPOS 

LOIMOV 

RTSECT 

APFDYS 

F1RCON 

LOOK 

RTSEL 

A PRIOR 

FIRI’OR 

LPRENV 

RTSELH 

ARFO 

FIRMOD 

MICONC 

RTSRCH 

ATAN5 

FLGSET 

MOUNT 

SECPRM 

ATKPRM 

FLIGHT 

MOV 

SENDI 

AVAIL 

FRMLDR 

MVCON 

SET  LOS 

CASELE 

FSCIIEK 

MV'I’EST 

SETRT 

CBOBS 

FTIME 

MXMNRT 

SETUP 

CNTOUT 

G ETHEL 

NATLDR 

TACCNT 

CON 

GET  ICE 

NEUDET 

TOES 

CONVRT 

111)1  F 

NEWFO 

TFCOMP 

COV 

IIELCON 

NEWMIS 

TIME 

CSMOVE 

IIELFIR 

NUT  ARC 

WPRIOR 

CSRTSL 

IIELMOV 

OFFSET 

WR'I’FRL 

CSWCAS 

II  FIRE 

PICKItT 

WRTIJ 

CSWCON 

IILNCH 

PILOT 

XYLOC 

DEFPOS 

IIP  ROB 

PREILL 

XYLOCII 

XYMCP 

LENGTH: 


32 
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CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


COMMON/ICSWEL/ 

ICSWCL  contains  the  element  numbers  of  a crew  served 
weapon  group's  carrier  and  crews.  This  common  is 
used  only  when  "analysis  point"  processing  is  desired 
(see  COMMON/LANYPT/). 

ICSWEL  is  a two-dimensional  array 

ICSWEL  (I,J) 

I 1 contains  the  element  number  of  the  carrier  in  group  J 

I 2,  3,  4 contains  the  element  numbers  of  crews  In  group  J. 
A value  of  0 indicates  no  crew  in  this  position  of  the  group. 

J 1, . . . N where  N is  the  number  of  CSW  groups. 

Required  if  "analysis  point"  processing  is  desired. 

FIRMOD 

4*N 


COMMON/ICSWGP/ 

ICSWGP  contains  the  crew  served  weapon  group  number  of 
each  element.  This  common  is  used  only  when  "analysis 
point"  processing  is  desired  (see  COMMON/LANYPT/). 

ICSWGP  is  a one-dimensional  array 

ICSWGP  (ICE)  CSW  group  number  if  ICE  is  an  element  of 
a CSW  group,  0 otherwise 

where  ICE  1, . . . , MNELE,  the  maximum  number  of  elements 
Required,  if  "analysis  point"  processing  is  desired 
FIRMOD 


3 


LENGTH: 


MNELE 


COMMON/IFBMIS/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 
USERS: 

LENGTH: 


IFBMIS  stores  an  array  containing  the  mission  flag  of  the 
firing  team  (integer). 


IFBMIS  (I)  = 
where  I = 


0 if  firer  I has  no  activity 

1 if  firer  I has  a confirmed  target 

) 2 if  firer  I has  an  unconfirmed  target 
3 if  firer  I is  standing  by  for  confirmation 
s 

1 , . . . , NTFS  FT  lire  support  firing  team  number. 


Zero,  altered  during  execution. 

AFO,  CNFLCT , DRFROK , AIRFB,  PRMSET , HE LFIR , 
MFB 


NTFS FT 


COMMON/IFDCNT/ 

IFDCNT  stores  an  array  containing  the  fire  direction  center 
radio  network  flag  (integer) . 


IFDCNT  (I) 


0 radio  net  I is  open, 

1 initial  fire  request  is  being  sent 
on  radio  net  I , 

/ 2 fire  adjustment  message  is  being 

sent  on  radio  net  I,  and 
3 fire  request  was  communicated  while 
receiver  facilities  were  overloaded 


where  I = 1, . . . , NTFRNT  fire  request  net  number. 


Zero,  altered  during  execution. 

AFO,  FSCMON,  AFDC  , AFSC,  AIRFB. 
NTFRNT 
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COMMON/IFMC/ 


CONTENTS:  IFMC  contains  the  ammunition  code  of  the 

MISTIC  missile  loaded  aboard  a launcher. 

ARRANGEMENT:  IFMC  is  a one -dimensional  array. 

IFMC  (I)  (integer) 

where 

I  = 1, .. . .MWMIS-MWART;  MISTIC  unit  weapon  codes 

INITIALIZATION:  Required 
USERS:  MFB,  LOADM 

LENGTH:  MWMIS-MWART  


COMMON/I  FRFL/ 

CONTENTS:  IFRFL  stores  an  array  containing  the  activity  flag  of  the 

j forward  observer  or  launcher  vehicle  (integer). 

0 if  all  fire  support  activities  are  allowed 
for  FO  or  launcher, 

1 if  all  fire  support  activities  are  suspended 
for  FO  or  launcher, 

2 if  launcher  may  load  but  not  launch 
missiles,  and 

3 if  launcher  may  launch  but  not  load 
missiles 

where 

I = 1, . . . ,ITOTFO  for  FO’s 

I = ITOTFO+  1, ...  .ITOTFO  + ITOTLN  for  launchers. 


A -GO 


COMMON/IUAMO/ 


T 


CONTENTS:  IHAMO  contains  an  array  specifying  the  ammunition  codes 

to  he  used  by  a helicopter  during  each  phase  of  an  attack. 


ARRANGEMENT:  IHAMO  is  a two-dimensional  array. 


IHAMO(I,  J)  (integer  *2) 
where 

1 suppressive  fire  weapon  one,  during  attack 
phase  1, 

2 suppressive  weapon  one,  during  attack  phase 
two, 

I s 3 suppressive  weapon  two,  during  attack  phase 

one, 

4 suppressive  weapon  two,  during  attack  phase 
two,  and 

5 point  fire  weapon,  at  end  of  attack  phase  one. 
J 1, . . . , MAXNAV  helicopter  element  numbers. 

INITLA  Id/ATION:  None 


USERS:  ATKl’RM,  CONVRT,  II  EIRE,  RTATAK,  TEt'OMP 

LENGTH:  (5*M AXNAV),  II 


COMMON/I1IDKMC/ 

CONTENTS:  IHDEMC  contains  the  ammunition  code  of  the  direct-lire 

missile  loaded  on  a helicopter. 

ARRANGEMENT:  IHDEMC  is  a two-dimensional  array. 

IIIDEMC(I,  J)  (integer) 

where 

' 1 MISTIC  missile 

1 

I 2 beam  rider  missile 


A— I*  I 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


J - 1, . . . , NA3,  where  NA3  is  the  maximum  number  of 
weapon  codes  assigned  to  aerial  vehicle  elements.  Note 
that  weapon  codes  assigned  in  COMMON/ LWCOD/  are 
numbered  1, . . . , MAXLWC  for  ground  elements  and  from 
MAXLWC  + 1, . . . , MAXWC  for  aerial  vehicle  elements. 
Thus,  NA3  MAXWC  ~ MAXLWC. 

Required 

A PRIOR,  ATKI’RM,  HFIRE,  HLNCII,  RTATAK,  TFCOMP 
2 + NA3 


COMMON/IHFNA/ 


IHFNA  contains  an  array  specifying  the  number  of  the 
formation  pattern  to  be  used  by  an  aerial  unit  under  different 
circumstances . 


I11FNA(I,J,K)  (integer) 


where 
I = 


1 enroute  movement, 

2 loiter,  and 

3 search. 


1 for  section  one  in  a platoon, 

2 for  section  two  in  a platoon, 

13  lor  platoons  in  a team,  and 
4 for  teams. 


K =1,2,...  .MWA1R-MWM1S  aerial  unit  wea|>on  codes. 


Required 


11  FORM 


I J\NGT1I : 


3 * 4 * (MWAIR-MW MIS) 


COMMON/IHTAKG/ 


CONTENTS:  IHTARG  contains  an  array  specifying  the  target  elements 

to  be  attacked  by  a helicopter  during  each  phase  of  an  attack. 

ARRANGEMENT:  IHTARG  is  a two-dimensional  array. 

IHTARG(I,J)  clement  number  to  be  attacked  (integer^) 


where 


1 suppressive  fire  weapon  one,  during 
attack  phase  one, 

2 suppressive  fire  weapon  one,  during 
attack  phase  two, 

3 suppressive  fire  weapon  two,  during 
attack  phase  one, 

4 suppressive  fire  weapon  two,  during 
attack  phase  two,  and 

5 point  fire  weapon  at  end  of  attack 
phase  one. 


<J  1 , . . . , MAXNA V helicopter  element  numbers 
INITIALIZATION:  None 

USERS:  ATKPRM,  CONVRT,  HEIRE,  RTATAK,  TECOMP 

LENGTH:  (!>*MAXNAV),  II 


COMMON/INPRIR/ 

CONTENTS:  INPRIR  contains  the  priority  of  indirect-fire  support 

missions  assigned  to  aerial  teams. 

ARRANGEMENT:  INPRIR  is  a two-dimensional  array. 

INPRIR(I,  J)  (integer) 

where 


r~  w 


l 2 


INITIALIZATION:  Required 
USERS:  AFSC 

LENGTH:  3*2 


for  MISTIC  launcher  mission, 
for  MISTIC  FO  mission,  and 
for  special  FO  mission. 

for  blue  force,  and 

for  red  force. 


COMMON/INTRIG/ 


CONTENTS:  Six  cells  containing  the  parameters  for  the  trigger  area 

table  for  the  fire  support  target  selection  model  in  integer 
mode. 


ARRANGEMENT: 

NRFTRG  contains  the  number  of  red  trigger  areas 
triggered  by  red  elements  (—  NRTRIG) 


NRTRIG  contains  the  total  number  of  red  trigger 
areas  ( ^ 10) 


NBFTRG  contains  the  number  of  blue  trigger  areas 
triggered  by  blue  elements  ( — NBTRIG) 


NBTRIG  contains  the  total  number  of  blue  trigger 
areas  ( — 10) 

NBATRG  contains  the  number  of  search  and  destroy 
trigger  areas  triggered  by  blue  elements 
( ^ NAT  RIG) 


NATRIG  contains  the  total  number  of  search  and 

destroy  trigger  areas  triggered  by  friendly 
elements  (-  10). 

INITIALIZATION:  Input,  not  altered  during  execution. 


USERS:  AFO,  FSCHEK,  TRIG 

I .K  NOTH:  G 
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COMMON/IPHASE/ 


COMMON/I  REQ/ 

CONTENTS:  IREQ  stores  the  number  of  the  request  on  the  ground-to-air 

communicator's  fire  request  list  which  the  communicator 
desires  to  transmit. 

ARRANGEMENT:  IREQ (I)  (integer) 
where 

f 1 blue  force  communicator,  and 
2 red  force  communicator. 

\ 

INITIALIZATION:  Zero,  altered  during  execution. 


COMMON/IRFNH/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS; 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


IRFNH  contains  a flag  indicating  if  an  aim  adjustment  event 
for  a rapid  fire  weapon  did  not  result  in  a hit  within  the 
allotted  event  time. 


IRFNH  (I)  = 


/ 

0 if  aim  adjustment  resulted  in  a hit, 
s and 

1 if  no  hit  resulted  in  aim  adjustment 
(integer) 


for  I = 1 N where  N is  the  number  of  regular 

elements . 


None 

FIRCON,  FTIME 
N 


C O MMO  N/ISA  C T / 

ISACT  contains  the  section  activity  code  indicating  that  a 
reevaluation  of  the  section's  firing  position  is  required. 

A 1 if  the  firing  position  reevaluation  is  required;  a 0, 
otherwise.  For  aerial  vehicle  sections,  the  section  activity 
code  indicates  that  a movement  decision  for  the  section 
should  be  made. 

ISACT  is  a one-dimensional  array. 

ISACT  (I)  (integer) 

I = 1 N section  numbers 

where  N is  the  total  number  of  sections. 

None 

FIRKIL,  CASELE,  FIRFOR,  FIRCON,  DELETE , MFU, 
LMUFL, HELCON 

N 
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COMMONASCHPR/ 


CONTENTS:  ISCIIPR  contains  the  priorities  for  artillery  firing  battery 

scheduled  fires. 

ARRANGEMENT:  ISCHPR  is  a two-dimensional  array. 

ISCHPR(I,  J)  contains  the  priority  for  the  Ith  scheduled 
fire  by  the  jth  battery  for  I = 1 , ...  ,6; 

J = 1, ....  N where  N is  the  number  of 
batteries. 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AEB 

LENGTH:  6 * N 


COMMON/ISENA/ 


CONTENTS:  ISFNA  contains  the  formation  pattern  numbers  to  be  used 

by  aerial  section  while  performing  independent  movement. 

ARRANGEMENT:  ISFNA  is  a two-dimensional  array. 


ISFNA  (I,  J)  (integer) 


where 

/ 

1 for  enroute  movement, 

2 for  loiter, 

1 = 1 3 for  target  attack,  and 

4 for  target  search 

J - 1 .....  N helicopter  element  weapon  codes 
(see  COMMON/A  NGLIM/  for  weapon  code 
definition) . 


INITIALIZATION:  Required 
USERS:  SECPRM 

LENGTH:  4 * N 
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COM  M ON/  ITM  A SS/ 


CONTENTS:  ITMASS  stores  an  array  containing  the  number  of  the  aerial 

team  assigned  to  deliver  fire  for  request  J on  the  ground-to- 
air  list  I. 

ARRANGEMENT:  ITMASS  is  a two-dimensional  array: 

ITMASS(I,  J)  (integer) 

where 

I 1 blue  force 

I 2 red  force 

J position  in  fire  request  list 

INITIALIZATION:  Zero,  altered  during  execution 

USERS:  AFASGN,  AFSC,  AIRFB,  FSCMON,  WRTFRL 

LENGTH:  10 


COMMON/ITRIG/ 

CONTENTS:  ITRIG  stores  an  array  containing  the  priority  weight  of  on- 

call  fire  triggered  by  friendly  elements  in  trigger  area  I. 

ARRANGEMENT:  ITRIG  (I)  (integer) 

where 

I = 1 30  trigger  area  number 

INITIALIZATION:  Required 
USERS:  AFO,  FSC1IEK 


Il’NGTH: 


30 


COMMON/ITYPA/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENT: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


ITYPA  contains  the  ground  weapon  classification;  i.  e. , a 
heavy  or  light  weapon,  for  aerial  vehicle  target  selection, 

ITYPA  is  a one-dimensional  array  (integer4 2) 

(0  the  I1*1  element  is  a light  weapon  or 
an  aerial  platform,  and 
1 the  I1*1  element  is  a heavy  weapon 

for  I 1, ....  MNKLE  where  MNELE  is  the  total  number 
of  elements 

Required 

AIRPOR,  WASAIR,  AIR  FIR 
MNELE,  H 


COMMON/IUNACT/ 

IUNACT  specifies  the  mission  an  aerial  unit  is  performing. 
IUNACT  is  a one-dimensional  array. 

IUNACT  (I)  (integer) 

0 no  mission 

1 target  of  opportunity 

2 counter  battery  attack 
2 searc  h and  destroy 

4 self  defense 

5 indirect-fire  MISTIC  launcher 

6 MISTIC  forward  observer 

7 counterbattery  observation 

8 special  forward  observer 

9 defensive  operation 

10  loitering  off  battlefield  or  retiring 

where  I - 1,...,NUMAVT  aerial  unit  numbers. 

Required 

Aerial  Vehicle  Model,  Eire  Support  Target  Selection  Model. 
NUMAVT  


A- 69 


C OM  M ON/ J A M OA  V/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


JAMOAV  contains  the  minimum  ammunition  requirement 
for  a given  aerial  vehicle  weapon  code  to  conduct  a fire 
mission. 

JAMOAV  is  a two-dimensional  array  (integer*2) 

JAMOAV(I,  J)  contains  the  amount  of  ammunition  type  I 
for  the  J1*1  aerial  weapon  code 

for  I 1 6 and 

J - 1, . . . , NA3  where  NA3  is  the  maximum  number  of 
weapon  codes  assigned  to  aerial  vehicle  elements.  Note 
that  weapon  codes  assigned  in  COMMON/LWCOD/  are 
numbered  1, . . . , MAXLWC  for  ground  elements  and  from 
MAXLWC  + 1, . . . , MAXWC  for  aerial  vehicle  elements. 
Thus,  NA3  = MAXWC  - MAXLWC. 

Required 

AIRAMO 

(6  + NA3),  II 


COMMON/J  PHASE/ 

JPHASE  specifies  the  mission  phase  of  an  aerial  section. 

JPHASE  is  a one -dimensional  array. 

JPHASE  (I)  (integer) 

1 if  aerial  section  I is  enroute 
0 if  aerial  section  I has  achieved  its 
objective 

where  I = 1,...,N  aerial  section  numbers. 

None 

Aerial  Vehicle  Model 


LENGTH: 


N 


COMMON/JUNACT/ 


r 


CONTENTS:  JUNACT  specifies  the  present  activity  of  an  aerial  section. 

ARRANGEMENT:  JUNACT  is  a one-dimensional  array. 


JUNACT  (I)  (integer) 


0 if  aerial  section  I is  flying  enroute 
with  unit 

1 if  aerial  section  I is  searching  for  a 
target  or  loitering  with  unit 

2 if  aerial  section  I is  attacking  a target 

3 if  aerial  section  I is  seeking  a holding 
position 

4 if  aerial  section  I is  retiring  from  the 
battlefield  independently 

5 if  the  aerial  section  I is  indeixmdently 
seeking  a defensive  position 

G if  aerial  section  I is  enroute  1x>  rejoin 
unit 


where  I 1 N aerial  section  numbers. 


INITIALIZATION:  None 


USERS:  Aerial  Vehicle  Model 

LENGTH: N 

COMMON/KADV/ 

CONTENTS:  KADV  contains  the  phase  line  numbers  triggering  the  ad- 

vance of  supporting-fire  units. 

ARRANGEMENT:  KADV  is  a one -dimensional  array 

where 

KADV(I)  the  phase  line  number  triggering  the  l**1 
advance  of  supporting-lire  units  (integer) 

fori  l,...,N  where  N is  the  total  number  of  advances 
that  supporting-lire  units  arc  to  execute. 

INI  TIALIZATION:  Required  if  phase  lines  are  incorporated. 


USERS:  MVCON 


LENGTH:  N 
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COMMON/KAMA  VL/ 


r ' 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


-.**•-* 


KAMAVL  contains  ammunition  codes  of  each  ammunition 
assigned  to  an  aerial  vehicle  during  a fire  mission. 

KAMAVL  is  a two-dimensional  array.  (integer‘2) 


KAMAVL  contains  the  ammunition  code  assigned  to  the  I1*1 
weapon  of  the  aerial  vehicle 

where 


2 first  suppressive  fire  weapon 

3 second  suppressive  fire  weapon. 


J 1, . . . , MAXNAV  where  MAXNAV  is  the  maximum  number 
of  aerial  vehicle  elements. 


None 


CONVRT,  WASAIR 
(3 ‘MAXNAV),  II 


COMMON/KAMMAX/ 


KAMMAX  contains  the  weapon  firing  configuration  flag  for 
an  aerial  vehicle  performing  a firing  mission. 


KAMMAX  is  a one-dimensional  array. 


KAMMAX(I) 


/ 

0 vehicle  can  fire  one  point  fire  weapon 
only 

1 vehicle  can  fire  one  point  fire  and  one 
suppressive  fire  weapon 

< 2 vehicle  can  fire  one  point  fire  and  two 

suppressive  fire  weapons 

3 vehicle  can  fire  no  point  fire  and  one 
suppressive  fire  weapon 

4 vehicle  can  fire  no  point  fire  and  two 
suppressive  fire  weapons 


for  I 1,...,  NA3  where  NA3  is  the  maximum  number  of 
weapon  codes  assigned  to  aerial  vehicle  elements.  Note 
that  weapon  codes  assigned  in  COMMON/ LWCOl)/  aro 
numbered  1, .. . , MAXLWC  for  ground  elements  and  from 
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INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


MAXLWC  + 1, . . . , MAXWC  for  aerial  vehicle  elements. 
Thus,  NA3  MAXWC  " MAXLWC. 

llequi  red 

WASAIR,  AIIIAMO 
NA3 


C OM  M ON/  K A M OA  V/ 

KAMOAV  contains  an  ammunition  category  for  an  aerial 

vehicle  weapon  code  and  ammunition  code. 

KAMOAV  is  a two-dimensional  array  (integer* 2) 

' 

0 suppressive  area  fire  ammunition,  and 

KAMOAV(I,  J)  - < 

I 1 point  (destructive)  fire  ammunition 

for  I 1,...,(5  ammunition  code,  and 

J 1, . . . , NA3  where  NA3  is  the  maximum  number  of 
weapon  codes  assigned  to  aerial  vehicle  elements.  Note 
that  weapon  codes’  assigned  in  COJV1MON/LWCOI)/  un- 
numbered 1,...,  MAXLWC  for  ground  elements  and  from 
MAXLWC  i 1,...,  MAXWC  for  aerial  vehicle  elements. 
Thus,  NA3  MAXWC  - MAXLWC. 

Required 

AIRAMO,  WASAIR 


LENGTH: 


(6*  NA3),  II 


COMMON/KAMPRD/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


KAMPRD  contains  the  ammunition  priority  list  for  an  aerial 
vehicle  dependent  upon  aerial  vehicle  weapon  code,  ammuni- 
tion code,  and  a light  or  heavy  target  (see  COMMON/ITYPA/). 

KAMPRD  is  a three-dimensional  array  (integer^) 

KAMPRD(I,  J,  K)  contains  the  priority  for  the  I1*1  type  of 
weapon  and  the  J**1  ammunition  code  for  the  K^1  aerial 
weapon  code 


for 


I - 


1 heavy  weapon 

2 light  weapon 


J 1, ...  .NAMMOS  where  NAMMOS  is  the  number  of 
ammunition  codes  allowed  per  element,  a user  supplied 
storage  dimension  parameter 


K 1, . . . , NA3  where  NA3  is  the  maximum  number  of  weapon 
codes  assigned  to  aerial  vehicle  elements.  Note  that  weapon 
codes  assigned  in  COMMON/  LWCOD/  are  numbered 
1, . , . , MAXLWC  for  ground  elements  and  from 
MAXLWC  i 1, . . . , MAXWC  for  aerial  vehicle  elements. 

Thus,  NA3  - MAXWC  - MAXLWC. 


Required 


WASAIR 


LENGTH: 


(2* NAMMOS*NA3),  II 


COMMON/KANCKL/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS; 

LENGTH; 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


KANCEL  contains  the  fire  support  element  number  to  which 
a cancellation  message  is  to  be  sent  by  an  aerial  vehicle 
team. 

KANCEL  is  a one -dimensional  array. 

KANCE  L(I)  (integer) 

where 

1 = 1,  2,...,NUMAVT  aerial  vehicle  unit  numbers. 
None 
AIRFB 
NUMAVT 


COMMON/KELAGN/ 

KELAGN  contains  the  enemy  element  number  assigned  to 
each  weapon  of  each  aerial  vehicle. 

KELAGN  is  a two  dimensional  array,  (integer  * 2) 

KELAGN(I,  J)  contains  the  target  for  the  1^  weapon  of 
the  <j  aerial  vehicle 


for 

1 point  weapon 

j ...  2 first  suppressive  fire  weapon 

,3  second  suppressive  fire  weapon 

J = 1,  . . . , MAXNAV  where  MAXNAV  is  the  maximum 
number  of  aerial  vehicles. 

None 

CONVRT,  WASAIK 


LENGTH: 


.3  * MAXNAV,  II 


COMMON/KFDC/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


KFDC  contains  a casualty  flag  for  each  fire  direction  center 
as  a result  of  a counterbattery  mission. 

KFDC  is  a one -dimensional  array. 


KFDC  (I)  (integer) 


where 


0 


KFDC  (I)  = 


1 

2 


V 


for  I = 1 N 


fire  direction  center  I has  not 
been  neutralized 

the  center  is  short-term  neutralized 
the  center  is  long-term  neutralized 

where  N is  the  maximum  number  of 
artillery  fire  direction  centers. 


None 


BTLETH , AFO,  AFDC 
N 


COMMON/KFO/ 

KFO  contains  the  element  for  which  a fire  support  firer  is 
delivering  fire  oir  for  aerial  units  performing  a counter- 
battery mission,  the  battery  against  which  the  mission  is 
directed. 

KFO  is  a one-dimensional  array. 

KFO  (I)  (integer) 

where 

I = 1 NTFS  FT 

None 

MFB,  AIRFB,  l’RMSET,  CBCONT 
NTFS FT 
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COMMON/KFOD/ 


CONTENTS: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


KFOD  stores  an  array  containing  the  event  flag  of  each  for- 
ward observer  and  the  ground-to-air  communicator. 


1 

KFOU(I)  - 2 

3 


where 


forward  observer  I is  to  perform  target 

selection  activities 

communicate  initial  target  selection 

observe  for  fire  adjustment 

communicate  fire  adjustment 

try  to  communicate  over  a new  net 

(integer) 


1 = 


1 ITOTFO,  the  total  number  of  forward 

observers,  a user- specified  storage  dimension 
parameter 

ITOTFO  + 1 blue  ground-to-air  communicator 
ITOTFO  + 2 red  ground-to-air  communicator. 


None 


AFB,  AFO.AFSC,  AIRFB,  ARFO,  CENTER,  COUNT,  COV, 
FIRCON,  FI  It  FOB,  FSCMON,  II  EL  FIR,  ITRATE,  MFB, 
NEWFO,  WRITFO 

ITOTFO  + 2 


COMMON/KILFIR/ 

KILF1R  contains  information  about  the  effects  of  air  defense 
weapon  lethality  on  the  firepower  of  helicopter  elements. 

KILFIR  is  a two-dimensional  array. 

KILFIR(I,«J)  (integer) 

where 

I = 1 , . . . , MAXK  indicates  the  type  of  damage 
inflicted  by  an  air  defense  weaiwn 

,1  !,...,  N indicates  the  weapon  code  of  the  damaged 

helicopter  (see  COMMON/ANG1JM/  for  u defini- 
tion of  helicopter  weapon  code) 
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and 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


MAXK  is  the  maximum  number  of  air  defense  lethality 
codes  (1  - MAXK  - 9) 

Each  entry  in  KILFIR  is  an  integer  of  up  to  MNAMO  digits 
defined  as  follows: 


KILFIR  (I,  J)  = { 5K;  K = 1,...,  MNAMO  } 


where 


8 


K - 


1 if  ammunition  of  type  K can  no  longer  be 
fired  as  a result  of  the  damage 
0 if  otherwise 


(See  COMMON/NUMBER/  for  definition  of  MNAMO) 


Required 


CASHEL 
MAXK  * N 


COMMON/KLCPE/ 

KLCPE  contains  the  location  in  a list  of  the  next  movement 
control  point  for  CSW  team  NCR. 

KLCPE  is  a one  dimensional  array. 

KLCPE(NCR)  (integer) 
where 

NCR  - 1,  ...  , NCSWMX  CSW  team 
Zero,  altered  during  execution. 

CSMOVE,  CSWGRD,  CSWCON,  MOUNT 
NCSWMX 
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COMMON/KMANU/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


KMANU  contains  the  maneuver  unit  number  corresponding 
to  an  aerial  unit  or  a MISTIC  unit. 

KMANU  is  a one -dimensional  array. 

KMANU(I)  (integer) 

where 

{1,2,...,  NUMA  VT  aerial  unit  numbers , 

NUMA  VT  + 1 , . . . , NUMAVT  * MLSTUN 
MISTIC  unit  numlters 

Required 

AIRFB,  SECSET,  MISENI),  COUNT,  LOIPOS,  LOIMOV, 
DEFSET, DEFPOS 

NUMAVT  + MIST  UN 

COMMON/KPATRN/ 

KPATRN  stores  an  array  containing  the  firing  pattern  to  be 
used  in  firing  on  each  concentration  I,  given  on-call  fires 
were  triggered  by  friendly  elements. 

KPATRN(I)  (integer) 

where  I - 1 , . . . , 20  concentration  number 

Requi  red 

AFO 


LENGTH: 


20 


COMMON/KPHAS/ 


CONTENTS:  KPHAS  contains  a flag  indicating  the  status  of  each  attacking 

maneuver  unit  with  respect  to  the  phase  line  being  ap- 
proached. 

ARRANGEMENT:  KPHAS  is  a one-dimensional  array 


where 


KPHAS(I)  = 


0 if  the  I1*1  maneuver  unit  has  not 
reached  the  phase  line  zone, 

1 if  the  ith  maneuver  unit  is  within 
the  phase  line  zone,  and 

2 if  the  Ith  maneuver  unit  has  crossed 
the  phase  line  but  may  not  proceed 
with  the  attack  (integer) 


for  I = 1 N,  where  N is  the  number  of  maneuver 

units. 


INITIALIZATION:  None 


USERS: 


MVCON 


LENGTH: 


CONTENTS: 


COMMON/KTUBE/ 

KTUBE  contains  a lethality  flag  for  each  weapon  in  an  artil- 
lery firing  battery  which  becomes  a casualty  as  a result  of 
a counterbattery  mission. 


ARRANGEMENT:  KTUBE  is  a two-dimensional  array. 

KTUBE  (I,  J)  (integer) 


where 


A 


COMMON/KSALT/ 

CONTENTS:  KSALT  contains  the  status  flag  for  a CSW  team  with  respect 

to  its  alternate  firing  position. 

ARRANGEMENT:  KSALT  is  a one  dimensional  array. 

KSALT (NCR)  (integer) 

where 

NCR  = 1,  . . . , NCSWMX  CSW  team 

2 NCR  is  at  its  alternate  firing  position 
1 NCR  is  moving  to  its  alternate  firing 
position 
0 otherwise 

INITIALIZATION:  Zero,  altered  during  execution 
USERS:  CSMOVE,  CSWCON,  MOUNT 

LENGTH:  NCSWMX 


KSALT(NCR) 


<• 
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COMMON/KSDECN/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


KSDECN  contains  a flag  indicating  a CSW  team's  deploy- 
ment mode. 

KSDECN  is  a one  dimensional  array. 

KSDECN(NCR)  (integer) 
where 


NCR  = 1,  . . . , NCSWMX  CSW  team 


KSDECN(NCR)  = 


2 

• 1 
0 


NCR  is  in  defensive  mode 
NCR  is  in  attack  mode 
otherwise 


Zero,  altered  during  execution 
CSWCON,  CSWGRD 
NCSWMX 


C OMMON/KSDSMT/ 

KSDSMT  contains  the  indicator  for  the  deployment  of  each 
APC's  CSW  teams. 

KSDSMT  is  a one  dimensional  array. 

KSDSMT(I)  (integer) 

where 

1=1,...,  NAPCMX  APC  number 

{1  APC  to  deploy  crews  in  attack  mode 
0 APC  to  deploy  crews  in  defense  mode 

Required 

CSWCAS,  CSWCON 
NAPCMX 


COMMON/KSMAKE/ 


CONTENTS:  KSMAKE  contains  the  status  flag  with  respect  to  a CSW  team 

and  its  primary  firing  position. 

ARRANGEMENT:  KSMAKE  is  a one  dimensional  array. 

KSMAKE(NCR)  (integer) 

where 

NCR  = 1 NCSWMX  CSW  team 

2 NCR  is  at  its  primary  firing  position 
KSMAKE(NCR)  1 NCR  is  moving  to  its  primary  firing 

jH)sition 
0 otherwise 

INITIALIZATION:  Zero,  altered  during  execution 
USERS:  CSMOVE,  CSWCON,  MOUNT 

LENGTH:  NCSWMX 

COMMON/KSMVT/ 

CONTENTS:  KSMVT  contains  the  number  of  rounds  a crew  is  to  fire 

before  alternating  its  fire  position.  If  crew  is  not  to 
alternate  firing  positions,  this  value  is  set  to  zero. 

ARRANGEMENT:  KSMVT  is  a one  dimensional  array. 

KSMVT(NCR)  (integer) 

where 

NCR  = 1,  . . . , NCSWMX  CSW  team 
INITIALIZATION:  Required 
USERS:  CSWCON 

LENGTH:  NCSWMX 


COMMON/KSWHCH/ 


CONTENTS:  KSWHCH  contains  either  the  APC  number  of  each  regular 

element  that  is  a carrier  or  the  crew-served  weapon  (CSW) 
team  number  for  elements  that  are  crews. 

ARRANGEMENT:  KSWHCH  is  a one  dimensional  array. 

KSWHCH(I)  (integer) 

1=1,...,  NUMELE,  regular  element  numbers 
when 

LCSWFN(I)  = 1,  KSWHCH(I)  = APC  number 
when 

LCSWFN(I)  = 2,  KSWHCH  (I)  - CSW  number 
when 

LCSWFN(I)  = 0,  KSWHCH(I)  = 0. 

INITIALIZATION:  Required 

USERS:  CSMOVE,  CSWCAS,  CSWCON,  MOUNT 

LENGTH:  NUMELE 

COMMON/KWA  VA  L/ 

CONTENTS:  KWAVAL  contains  the  current  status  of  the  artillery  unit. 

ARRANGEMENT:  KWAVAL(I)  (integer) 
where 

I = 1 .... , MWART  artillery  unit  weapon  code 
/ 

0 indicates  at  least  one  artillery  unit 
with  artillery  weapon  code  I is  not 

KWAVAL(I)=<  a casualty 

1 otherwise 

INITIALIZATION:  Zero,  may  be  altered  during  execution. 

USERS:  AFO,  AFSC,  FSCMON,  REASFO 


LENGTH: 


MWART 


COMMON/  IAMMO/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS 

LENGTH: 


1 

<5 


1AMMO  contains  the  ammunition  supply  for  each  element. 
LAMMO  is  a two-dimensional  array: 

LAMMO  (I,J)  (integer) 

I = 1,...,  NAMMOS  ammunition  code  numbers 
J = 1,...,MNELE  element  numbers 

where  NAMMOS  is  the  number  ol'  ammunition  codes 

allowed  per  element  and  MNKLE  is  the  total  number 

ol'  elements  (user  supplied  storage  dimension  parameters) 

Required 

ADGCON,  AMMO,  AMMOI),  AMMODR , CASHEL, 

I AUNC II,  LOAOM,  PASMIS 

NAMMOS  * MNK  LE 


common/lapccw/ 

Common  LAPCCW  stores  the  crew  numbers  of  the  CSW 
teams  assigned  to  an  APC  carrier. 

LAPCCW  is  a two-dimensional  array: 

LAPCCW(I.J)  (integer) 

where 

I = 1 , . . . , 4 CSW  team 
J = 1, . . . , NAPCMX  APC  carrier 

where  NAPCMX  is  the  maximum  number  of  APC's. 
Required 

CSWCON,  CSWGRD 
4 * NAPCMX 
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• 


A 


COMMON/ LASTFB/ 


CONTENTS:  LASTFB  contains  the  previous  event  number  of  each 

firing  battery 

(for  output  appearance  only) 

ARRANGEMENT:  LASTFB  is  a one-dimensional  array: 

LASTFB  (I)  (integer) 

I = 1, . . . , NTFS  FT 

where 

NTFS  FT  is  the  number  of  fire-support  units 
NTFS  FT  = NUMART  t ITOTLN  » NUMAVT 
INITIALIZATION:  None 

USERS:  AFB,  MFB,  WRTART 

LENGTH:  NTFS  FT 

COMMON/ LCB/ 

CONTENTS:  LCB  contains  the  enemy  battery  number  of  an  artillery 

counterbattery  fire  mission  presently  being  fired. 

ARRANGEMENT:  LCB  is  a one-dimensional  array. 

LCB  (I)  (integer) 

where 

the  enemy  battery  number  of  a counter- 
battery fire  for  battery  I 
LCB(I)=<  q a counterbattery  mission  is  not 
being  fired 

V 

for  I = 1 , . . . , N where  N is  the  number  of  batteries. 
INITIALIZATION:  Zero 
USERS:  AFB 


LENGTH: 


N 


COMMON/ LCKEW/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 


LCREW  contains  the  crew-served  weapon  mount/dismount 
status  flag. 

LCREW  is  a onc-dimensional  array. 

LCREW(I) 

I = 1,  N 

where  N = number  of  sections,  and 
LCREW(I)  = 

0 crews  in  section  I are  mounted 

1 crews  in  section  1 are  to  dismount 

2 crews  in  section  1 are  dismounted 

3 crews  in  section  1 are  to  mount 

Required 

DISMNT,  MOUNT,  CARIElt,  CSWCAS,  LOOK 
N 


COMMON/  LCSWFN/ 


LCSWFN  contains  the  CSW  function  code  for  the  DYNCOM 
element  in  question. 


LCSWFN  is  a one-dimensional  array. 


LCSWFN(I) 


= < 


2 if  element  1 is  a CSW  crew 
1 if  clement  I is  a CSW  carrier 
0 otherwise 


1 - 1, 


N 


where  N = last  element  number 
Required 


USERS: 


CSWCAS,  FDIMOD,  LOOK 


COMMON/LCSWTP/ 


CONTENTS: 

ARRANGEMENT: 

INITIA IJZATION: 
USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


LCSWTP  contains  the  CSW  weapon  code  number  for  each 
team  aboard  a specified  carrier. 

LCSWTP  is  a one-dimensional  array: 

LCSWTP  (N  C R)  (integer) 

NCR  = 1,...,  NCSWMX  CSW  teams 

where 

NCSWMX  is  the  total  number  of  CSW  teams 
Required 

CSWCON,  MOUNT 
NCSWMX 


COMMON/LFLAG/ 


LFLAG  contains  codes  to  indicate  the  status  of  missiles 
already  launched  or  to  be  launched  by  aerial  platforms. 


LFLAG  is  a one-dimensional  array  of  integers. 


LFLAG(I)  = 


0 

2 


no  significance 

the  missile  launched  by  launcher  I 
is  still  flying 


where  I = 1 N and  N is  the  maximum  number 

of  launchers. 


None 

HELFIR , ATKPRM,  LAUNCH,  MFB 


LENGTH: 


N 


COMMON/LKILL/ 


CONTENTS:  LKILL  contains  the  kill  code  of  each  element.  A 0 inieates 

no  kill;  a 1 is  mobility  kill;  a 2 is  firepower  kill;  a 3 is 
mobility  and  fire-power  kill;  and  a 4 is  complete  kill. 

ARRANGEMENT:  LKILL  is  a linear  array. 


LKILL(I)  (integer) 

1 = 1,  • • • , N element  numbers 

where  N is  the  total  number  of  elements. 


INITIALIZATION:  None 


USERS:  ISORT,  ORGOUT,  WRIDlil,  FIRKIL,  CASELE,  IEX1\ 

GETICE,  FIRCON,  DETSQ,  INTEL  L,  RTS  EL,  TACCNT, 
FORM,  MXMNItT,  MVCON,  SEND,  SETLOS,  MAIN 

LENGTH:  N 


COMMON/  LMOVF 

CONTENTS:  LMOVF  contains  a movement  flag  for  each  element.  A 1 

if  the  element  moved  during  his  latest  event;  a 0 if  the 
element  remained  stationary  during  his  latest  event. 

ARRANGEMENT:  LMOVF  is  a linear  array. 

LMOVF(I)  (integer) 

1 = 1,  • • • , N element  numbers 

where  N is  the  total  number  of  elements. 

INITIALIZATION:  None 

USERS:  MV  TEST,  FIRCON 

LENGTH:  N 
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COMMON/ LMUFL/ 


CONTENTS:  LMUFL  specifies  whether  or  not  a maneuver  unit  has  a 

pending  movement  decision. 

ARRANGEMENT:  LMUFL  is  a one -dimensional  array. 

LMUFL(I)  (integer) 


where 


LMUFL(I) 


maneuver  unit  I has  a pending 
movement  decision 
otherwise 


and  I = 1,...,MNMNU  maneuver  unit  numbers 


INITIALIZATION:  None 

USERS:  AIRFB,  HELCON,  IIELFIR,  LMUSET , MFB 

LENGTH:  MNMNU 


COMMON/LNSET/ 


CONTENTS: 

ARRANGEMENT: 

1.  TM 

2.  X 

3.  Y 

4.  Z 

5.  ITARG 

6.  NCE 

7.  LFO 
H.  NIJM 


LNSET  contains  data  associated  with  the  launch  operation. 
LNSET  contains  18  values: 

= time  of  missile  launch  (real,  seconds). 

= X-coordinate  of  launch  point  (real,  meters). 

= Y-eoordinate  of  launch  point  (real,  meters). 

= Z-coordinate  of  launch  point  (real,  meters). 

= missile  target  element  number  (integer). 

= launcher  element  number  (integer). 

= FO  element  number  (integer). 

launcher's  launcher  number  (Integer). 
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I 


9.  IFO 


FO's  FO  number  (integer) 


10.  T 

11.  FINFLG 

12.  TIMP 

13.  ANGMIS 

14.  ANGLCH 

15.  RMEAN 

16.  B1 

17.  CROLL 

18.  MINUM 


missile  flight  time  (real,  seconds). 


flag  to  indicate  call  to  flight  (integer) 
/ 


FINFLG=  < 


0 

1 

2 


indirect-lire  mission 
direct-fire  mission 
continuation  of  previous  event. 


projected  impact  time  (real,  seconds). 


the  angle  of  the  tangent  to  the  missile- 
flight  path  at  lime  T. 


the  launch  angle  of  the  ballistic  missile. 


missile  roll  at  beginning  of  this  time  interval 
(real,  radians) 

the  interpolation  factor  for  the  replication. 

missile  roll  at  the  end  of  this  time  Interval 
(real,  radians) 

the  number  of  the  missile  that  has  been 
launched. 


INITIALIZATION:  None 

USERS:  LAUNCH,  FLIGHT,  FINAL,  MICONG 

LENGTH:  18 




COMMON/LNUM/ 


CONTENTS:  LNUM  contains  the  launcher  number  or  forward  observer 

number  for  each  element  if  it  is  a launcher  or  forward 
observer,  respectively. 

ARRANGEMENT:  LNUM  is  a linear  array. 

LNUM(l)  (integer) 
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1 = 1,  • • • , N element  numbers 


where  N is  the  total  number  of  elements. 

INITIALIZATION:  Required 

USERS:  FIRCON,  COV,  FIRKIL,  GETICE,  FIRFOR,  DELETR, 

SENDFR 

LENGTH: N 

COMMON/LTHTNK/ 

CONTENTS:  LTIITNK  contains  the  last  subscript  in  common  areas 

PKTkTC  and  TPMKH  of  the  lethality  characteristics  set 
for  a given  firer-ammunilion-targel  combination.  The 
values  of  LTHTNK  are  arranged  such  that  all  tank  target 
combinations  are  the  lowest  set  of  numbers  (e.g. , 1 through 
MTNKLT  from  COMMON/MAXWEP/)  and  nontank  target 
combinations  are  the  highest  set  of  numbers  (e.g. , 

MTNKLT  + 1 through  MLTHNK  from  COMMON/MAXWEP/). 

ARRANGEMENT:  LTHTNK  is  a three-dimensional  array. 

LTIITNK(I,  J,K)  (integer) 

I = 1 , . . . , 6 ~ ammunition  type  of  fire r 
J = 1, . . . , MNFRT  - firer  weapon  codes 
K = 1,...,  MNFRT  ” target  weapon  codes 

where  MNFRT  is  the  total  number  of  weapon  codes  as 
defined  in  COMMON/IPRJCT/. 

INITIALIZATION:  Required 

USERS:  FIRCON,  H FIRE 

LENGTH:  6 * MNFRT  * MNFRT 

Note:  To  prevent  COMMON/LTIITNK/  from  being  scenario  dependent  and 

to  simplify  preparation  of  input  data , a currently  used  expedient  fixes  the 
upper  bound  on  the  second  subscript  at  25.  Though  some  core  is  thus 
wasted,  correct  results  will  bo  obtained  provided  MNFRT  4 25.  When  used 
in  this  way  the  length  declaration  becomes  (>  * 25  * MNFRT. 
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COMMON/LWCOD/ 


CONTENTS:  LWCOD  contains  weapon  code  numbers  for  various 

DYNTACS  X elements  and  fire  support  units. 

ARRANGEMENT:  LWCOD  is  a linear  array  of  integers  arranged  as  follows: 


Element  Class 

I 

Value  Order  Required 

Vehicular 

1 

Nl 

1 

L 

— LWCOD(I)  — MAXLWC  for  ground  vehicles 
AVCOD(I)  > MAXLWC  for  aerial  vehicles 

Blue  Artillery 
Units 

N1  + 1 
N2 

^ LWCOD(I)  MWBART 

Red  Artillery 
Units 

N2  + 1 
N3 

MWBART  ^ LWCOD(I)  =£  MWART 

Blue  MISTIC 
Units 

N3  + 1 
N4 

MWART  ^ LWCOD(I)  £ MWBMIS 

Red  MISTIC 
Units 

N4  + 1 
N5 

MWBMIS  ^ LWCOD(I)  £ MWMIS 

Blue  Aerial 
Teams 

N5  + 1 
N6 

MWMIS  - LWCOD(I)  - MW  BA  111 

Red  Aerial 
Teams 

N6  + 1 
N7 

MW  BAIR  - LWCOD(I)  - MWAIR 

where 

N1  = NUMELE 
N2  = N1  + NBART 
N3  = N1  + NUMART 
N4  = N3  + NBMIS 
N5  = N3  ► MISTUN 
NG  = N5  ^ NBAVT 
N7  - N5  » NUMAVT 

and 


MAXLWC  , MW  BART  ,MWART , MWBM1S , MWMIS , MW  BAER , MWAER , 
NUME  LE  , NBART , NTJMART , NBMIS , MISTUN,  NBAVT  and  NUMAVT  are 
as  defined  in  common  area  /NUMBER/ . 


INITIALIZATION:  Required 

USERS:  Widely  used  throughout  the  simulation. 

LENGTH:  NUMELE  + NUMART  + MISTUN  + NUMAVT 

COMMON/  LWSYS/ 

CONTENTS:  LWSYS  contains  the  weapon  system  code  for  each  weapon 

code. 

ARRANGEMENT:  LWSYS  is  a one-dimensional  array: 

LWSYS  (integer) 

1 if  tank 

2 if  amored  personnel  carrier 

3 if  crew  served  weapon 

4 if  light  armor 

5 if  A1156  helicopter 

6 if  light  observation  helicopter 

I = 1, . . . , N weapon  code  numbers 
where  N is  the  total  number  of  weapon  codes. 

INITIALIZATION:  Required  for  each  weapon  code. 

USERS:  ADTGSL,  AFO,  APRJOR,  ARLETH,  FIRCON,  FIRMOD, 

FLIGHT , HFIRE  , REVAL,  SELECA 

LENGTH:  N 


LWSYS(I)  = 
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COMMON/ LZZPE/ 


CONTENTS:  LZZPE  contains  a flag  indicating  that  an  element  is  ahead  of 

the  maneuver  unit  leader  due  to  a kill  to  a previous  leader . 

ARRANGEMENT: 

LZZPE  (I)  = 0 element  I is  not  interpolating  ahead 
of  the  new  leader 

LZZPE  (I)  / 0 otherwise 

for  I = 1 N where  N is  the  number  of  regular 

elements. 

INITIALIZATION:  None 

USERS:  XYMCP,  INTER P 

LENGTH:  N 


COMMON/MAINPR/ 

CONTENTS:  MAINPR  contains  constants  used  to  control  overall  program 

execution  and  the  summary  output  interval. 

ARRANGEMENT:  MAXEV  Maximum  number  of  events  to  be  executed. 

Execution  is  terminated  when  this  limit  is 
exceeded  (integer) 

OTIME  Time  interval  (battle  time  not  real  time)  for 
summary  outputs.  Must  be  greater  than 
EVTIME  (sec  MOVPAK)  (real,  seconds) 

KNTll  Current  event  counter  (initialize  to  zero). 
INITIALIZATION:  Required 
USERS:  Main  program,  GET  PUT 

LENGTH:  :$ 
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COMMON/MANACT/ 


CONTENTS:  MANACT  contains  flags  indicating  whether  or  net  routes 

are  to  be  chosen  for  aerial  units. 

ARRANGEMENT:  MANACT  is  a one-dimensional  array. 

MANACT(I)  (integer) 

0 if  a route  is  not  to  be  chosen  for  unit  I 
IUNACT(I)  + 1 if  a route  is  to  be  chosen 
for  unit  I to  perform  the  activity  specified 
by  IUNACT(I) 

where  I = 1,...,NUMAVT  aerial  unit  numbers 
(See  COMMON/IUNACT/) . 

INITIALIZATION:  None 

USERS:  AERFB,  NEWMIS,  HELCON 

LENGTH: NUMAVT 

COMMON/MAXWEP/ 

CONTENTS:  MAXWEP  contains  dimensioning  constants  for  common 

areas  FIRKON,  AMMOCH,  and  TPMKH,  and  constraint 
constants  for  common  areas  IHTPRB  and  LTHTNK. 

ARRANGEMENT:  MAXWEP  contains  seventeen  values  as  follows: 

1.  MDIRFI  = the  number  of  direct-fire  (e.g.,  main 

gun)  projectile  types  being  played  in 
the  battle  simulation  (integer). 

2.  MRAPFI  = the  number  of  rapid-fire  projectile 

types  being  played  in  the  battle 
simulation  (integer). 

3.  MMIS  = the  number  of  beam-rider  missile 

(e.g. , Shillelagh)  types  being  played 
in  the  battle  simulation  (integer, 
currently  no  greater  than  two). 

4.  MLT11NK  - largest  value  of  LTHTNK(I,J ,K) (from 

COMMON/ LTHTNK/)  entered  for 
rapid  fire  projectiles  (integer). 
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5.  MLTRAP 


largest  value  of  LTHTNK(I,.J  ,K) 
(from  COMMON/LTHTNK/)  entered 
for  rapid  fire  projeetiles  (integer). 


6.  MLTMIS  = largest  value  of  LTHTNK(I,J,K) 

(from  COMMON/LTHTNK/)  entered 
for  direct-fire  missiles.  This  value 
also  specifies  the  total  length  of 
LTHTNK  (integer). 

7.  MTNKLT  = largest  value  of  LTHTNK(I,J,K) 

against  tanks. 

8.  MCGIW  - number  of  ground  MISTIC  weapons . 

9.  MCGPW  number  of  air-defense  missile  weapons. 

10.  MPHM  number  of  air-defense  gun  systems . 

11.  MSA11M  - number  of  aerial  vehicle  weapons. 

12.  MIPH  = smallest  value  of  firer  weapon- 

ammunition  code  for  passive  homing 
missiles  (see  COMMON/IHTPRB/). 

13.  MX  PI  I - largest  value  of  firer  weapon- 

ammunition  code  for  passive  homing 
missiles . 

14.  M ISA  11  - smallest  value  of  firer  weapon- 

ammunition  code  for  semi -active 
homing  misr.iles. 

15.  MXSAI1  = largest  value  of  firer  weapon- 

ammunition  code  for  semi-active 
homing  missiles. 

16.  MICGl  smallest  value  of  firer  weapon- 

ammunition  code  for  conventional 
guns  with  impact  fused  warheads. 

17.  MXCGI  largest  value  of  firer  weapon- 

ammunition  code  lor  conventional 
guns  with  Impact  fused  warheads. 

INITIALIZATION:  Required 

USERS:  MAIN  PROGRAM,  AI1GCON,  ADT1C , AMMOD,  AMMODR, 

FIRMOD,  FTIMK,  GLOBE,  IIIIPROB,  1IPROB,  TLETH 

« 


LENGTH: 


17 


COMMON/MC  LASS/ 


CONTENTS:  MCLASS  contains  the  class  of  mission  that  aerial  units  are 

currently  performing. 

ARRANGEMENT:  MCLASS  is  a one -dimensional  array. 

MCLASS  (I)  (integer) 

where 

aerial  unit  I is  performing  no 
mission 

aerial  unit  I is  performing  an 
attack  mission 

aerial  unit  I is  performing  an 
observation  mission 
aerial  unit  I is  performing  an 
indirect-fire  MISTIC  mission 

where  1=1 NUMAVT  aerial  unit  numbers. 

INITIALIZATION:  Required  (should  agree  with  initial  values  assigned  in 
C OMMO  N/IUNAC  T/ ) . 

USE  RS : AIR  F B , RTCROS , RTATAK , HE  LFIR , NEWMIS , HE  LC  ON , 

MISE  ND,  ATKPRM 

LENGTH:  NUMAVT 


COMMON/MD/ 

CONTENTS:  MD  contains  the  standard  deviations  in  flight  time  at  a 

distance  RM  (given  in  COMMON/RM/). 

ARRANGEMENT:  TD(I)  (real,  seconds2) 

I = 1,  N 

where  N = number  of  distance  points  and 
TD(1)  =0.0 

INITIALIZATION:  Required 
USERS:  FLIGHT 

LENGTH:  N 


COMMON/MDFCSW/ 


COMMON/MESARR/ 

CONTENTS:  MESARR  contains  the  number  of  lire  requests  awaiting 

action  by  an  aerial  unit. 

ARRANGEMENT:  MESARR  is  a one -dimensional  array. 

MESARR(I)  (integer) 
where 

I = 1 NUMAVT  aerial  unit  numbers 

INITIALIZATION:  None 
USERS:  AIRED 

LENGTH:  NUMAVT 


COMMON/MESCON/ 


CONTENTS:  MESCON  contains  the  communication  status  of  an  aerial  unit 

during  new  mission  negotiations. 

ARRANGEMENT:  MESCON  is  a one -dimensional  array. 


MESCON(I)  (integer) 


MESCON(I)  = < 


0 

1 


no  message  has  been  received 
the  mission  request  has  been 
confirmed 

the  mission  request  has  been 
cancelled 


where  I = 1, 2, . . . .NUMAVT  aerial  unit  numbers. 


INITIALIZATION:  None 
USERS:  AIRFB 

LENGTH:  NUMAVT 


COMMON/MFCSW/ 


CONTENTS: 


Common  MFCSW  contains  a flag  which  indicates  whether 
a specified  APC  may  fire  when  its  crews  are  mounted. 


ARRANGEMENT: 


MFCSW  is  a one -dimensional  array  (integer) 


MFCSW(I)  = 


1 indicates  firing  allowed 
0 otherwise 


for  I I, . . . .NAPCMX,  where  NAPCMXis  the  maximum 
number  of  A PC's . 


INITIALIZATION: 


USERS: 


Required 

CSWCON 


LENGTH: 


NA  PC  MX 
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COMMON/MIDATA/ 


CONTENTS:  MIDATA  contains  assorted  indirect-fire  (MISTIC) 

missile  flight  data. 

ARRANGEMENT:  MIDATA  consists  of  42  values: 

1.  SDXFI  = standard  deviation  of  the  FO  location  error  in  the 

X direction  when  he  is  in  his  initial  position  (meters) 

2.  SDYFI  = same  as  above  in  Y direction 

3.  SDXFM  = standard  deviation  of  the  EO  location  error  in  the 

X direction  after  he  has  moved  from  his  initial 
position  (meters) 

4.  SDYFM  = same  as  above  in  Y direction 

5.  SDXLI  = standard  deviation  of  the  launcher's  location  error 

in  the  X direction  when  he  is  in  his  initial  position 
(meters) 

6.  SDYLI  = same  as  above  in  Y direction 

7.  SDXLM  = standard  deviation  of  the  launcher's  location  error 

in  the  X direction  after  he  has  moved  from  his 
initial  position  (meters) 

8.  SDYLM  = same  as  above  in  Y direction 

9 . DISMAX  not  currently  used 

10.  RE  = probability  that  a missile  will  be  mechanically 

reliable  in  flight 

11.  CRD  = standard  deviation  of  the  angular  cross  range  bias  in 

mils 

12.  CTNA  = cotangent  of  the  seeker  angle  which  determines  the 

rear  limit  of  the  field  of  view 

13.  CTNR  = cotangent  or  the  seeker  angle  which  determines  the 

forward  limit  of  the  field  of  view 

14.  TANG1  tangent  of  the  seeker  angle  which  determines  the 

fringe  region  of  the  field  of  view 
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COMMON/MIDATA 


15.  TANG  2 = 

16.  EPT 

17.  EPS 


18.  NPTS 

19.  RHO 

20.  ROLLRT  = 

21.  DELT 

22.  AYP 

23.  TIMLIM  = 

24.  TIMENP  = 

25.  ALIM 

26.  BLIM 

27.  MV 

28.  NSRPTS  = 

29.  NDDPTS  = 

30.  TANETA 

31.  IPREVT 


tangent  of  the  seeker  angle  which  determines  the 
center  region  of  the  field  of  view 

if  the  missile  and  target's  clock  times  are  within 
EPT  of  being  equal,  they  are  considered  to  be  equal 

the  max  num  absolute  deviation  between  the  forward 
edge  of  the  field  of  view  and  the  target's  position 
within  which  the  target  is  considered  to  be  at  the 
forward  edge  of  the  field  of  view 

the  number  of  points  in  COMMON/DDPTS/  and 
C OMMON/DT  PTS/ 

autocorrelation  between  ballistic  missile  roll  errors 
separated  by  DELT  (real) 

standard  deviation  of  ballistic  missile  roll  error  (real, 
radians) 

time  between  target  search  chocks  for  ballistic 
missiles  (seconds) 

absolute  value  of  target  y coordinate  (meters,  initialize 
to  0.0) 

minimum  limiting  time  remaining  before  impact  lor 
the  FO  to  change  targets  (seconds) 

time  interval  between  illuminator  pulses  (seconds) 

the  limiting  FO-target-missile  angle  (radians) 

the  limiting  FO-target-missile  angle  for  marginal 
FO  safety  (radians) 

current  missile  velocity  in  meters/second  (real, 
initialize  to  0.0) 

number  of  points  in  COMMON/SRPTS/ 

number  of  points  in  COMMON/DDPTS/ 

tangent  of  the  angle  used  in  determining  the  limiting 
range  from  the  target  along  the  flight  path  beyond 
which  the  missile  will  home  on  the  FO 

previous  missile  event  if  this  event  is  a continuation; 
initialize  as  0.0 


COMMON/MIDATA 


32. 

NPOINT 

= number  of  points  in  COMMON/RM/ 

33. 

NL 

= maximum  number  of  missed  pulses 

34. 

YER 

= lateral  error  between  target  position  and  field  of 
view  (initialize  as  0.0) 

35. 

TVFIX 

= time  interval  between  visual  fixations  for  detection 
by  an  E-O  device  (seconds) 

36. 

FOY2 

not  currently  used 

37. 

FOX3 

not  currently  used 

38. 

FOY3 

not  currently  used 

39. 

EPSR 

if  the  slant  range  to  the  target  is  less  than  the  distance 

the  missile  will  travel  during  the  next  time  inere- 
ment  plus  E PS R .then  the  missile  is  eonsidered  to 
impact  during  the  next  time  interval  (meters) 


0 for  first  flight  iteration 

1 for  iteration  after  first 

2 for  iteration  to  place  target  on  edge  of  field  of  view 
initialize  as  0. 

41.  KEY  dummy  variable  used  to  pass  alphabetic  data 

between  subroutines  FLIGHT  and  FINAL 

42.  BXLDIS  = target  lead  distance  (meters). 

INITIALIZATION:  Required 

USERS:  BFLITE  , FINAL,  FINALE,  FLIGHT,  HLNCH , 

LAUNCH,  MICONG,  PROB,  PROBTV,  SEEKER, 

TVDET 


LENGTH:  42 


CONTENTS: 

ARRANGEMENT: 

1. 

XT 

2. 

YT 

3. 

ZT 

4. 

ANGT 

5. 

SINT 

6. 

COST 

7. 

HTV 

8. 

PCT 

9. 

NFO 

10. 

XFO 

11. 

YFO 

12. 

ZFO 

13. 

R 

14. 

XM 

15. 

YM 

l(i. 

ZM 

17. 

EM 

COMMON/MIFO/ 

MIFO  contains  data  associated  with  the  missile  flight 
procedure. 

MIFO  contains  29  values 

= target's  X-coordinate  (real,  meters) 

= target's  Y-coordinate  (real,  meters) 

= target's  Z-eoordinate  (real,  meters) 

= target's  direction  of  travel  (real,  radians) 

= sine  of  ANGT  (real) 

= cosine  of  ANGT  (real) 

= height  of  the  target  vehicle  (real,  meters) 

= fraction  of  target  not  visible  to  the  FO  (real) 

= indicator  whether  FO  lost  sight  of  the  target 
on  the  current  iteration  (pulse,  integer) 

, ■" 

0 — FO  lost  sight  of  target  this  pulse 

NFO  = < 

1 ~ otherwise 

1 >* 

= FO's  X-coordinate  (real,  meters) 

= FO  s Y-coordinate  (real,  meters) 

= FO’s  Z-coordinate  (real,  meters) 

= range  from  the  FO  to  the  target  (real,  meters) 

= missile's  X-coordinate  (real,  meters) 

- missile's  Y-coordinate  (real,  meters) 

= missile  s Z-eoordinate  (real,  meters) 

indicator  that  target  is  visible  to  missile  (integer) 
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COMMON/MIFO 


\ 


LM  = 


1 — target  not  visible  to  missile 
0 — otherwise 


18.  SRLOCK 


slant  range  (missile -target)  when  lock-on 
occurred  (real , meters) 


19.  XPT 

20.  YPT 

21.  ZPT 

22.  PC 


= X-coordinate  of  last  determined  target  location 
(real,  meters) 

= Y -coordinate  of  last  determined  target  location 
(real,  meters) 

- Z-coordinate  of  last  determined  target  location 
(real,  meters) 

= fraction  of  target's  height  not  visible  to  missile  (real) 


23.  ANGL 


24.  VC 


25.  SPR 


26.  FOR  IT 


27.  MIHIT 


28.  COVER 


= the  azimuth  angle  of  the  line  of  sight  from  an  FO 
to  a target  (real,  radians) 

= the  crossing  velocity  of  a target  relative  to  an  FO 
(real,  mils/sec) 

= slant  range  to  the  last  determined  target  location 
(real,  meters) 

= indicator  whether  the  FO  hit  the  target  with  a 
given  pulse  (integer) 


FOR  IT  = 


1 — FO  hit  the  target 


0 — otherwise 

= indicator  whether  missile  has  hit  the  target  (integer) 

1 — missile  hit  the  target 
0 —otherwise 


MIHIT  = 


fraction  of  target  covered  with  respect  to  missile 
(real) 


21).  PR 


side  limit  of  missile  field  of  view  (real) 


A-105 


INITIALIZATION: 


None 


USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


B ELITE,  FINAL,  FINALE,  FLIGHT,  PROB, 
PROBTV,  PULSE,  SEEKER,  TVDET 

29 


COMMON/MISAVE/ 

MISAVE  contains  the  parameters  for  the  current  indirect- 
fire  missile  element. 

MISAVE  (28,  N) 

where  N is  the  number  of  indirect-fire  missile  elements. 

All  locations  of  COMMON/MISA VI'./  are  loaded  internal  to 
subroutine  MICONG  with  data  from  common  areas  MIDATA, 
LNSET,  and  OPEN. 

None 

MICONG,  MICONP,  FIRCON,  MOV 


LENGTH: 


28  * N 


COMMON/MISHIT/ 


CONTENTS:  MISHIT  sets  impact  parameters  for  the  assessment  of 

impacting  missiles  which  did  not  have  guidance  to  the  target 
on  impact. 

ARRANGEMENT:  MISHIT  contains  four  parameters. 


1.  NFB  = the  artillery  round  equivalent  to  the  missile  upon 

impact.  Artillery  type  NFB  data  will  be  used  to 
assess  the  missile. 

2.  Cl  = the  coefficient  of  X2  which  describes  the  ellipse 

of  effect  of  the  impacting  munition.  The  shape  of 
the  impacting  area  is  C 1 • X2  + C 2 • XY  4 C 3 • Y2 . 

3.  C2  = the  coefficient  of  XY  in  the  impact  ellipse. 

4.  C3  = the  coefficient  of  Y2  in  the  impact  ellipse. 

INITIALIZATION:  Required  for  all  values. 


USERS: 


FLIGHT 


LENGTH: 


COMMON/M  ISION/ 

CONTENTS:  MISION  describes  the  mission  type  of  each  maneuver  unit. 

The  codes  are  as  follows: 

0 if  the  maneuver  unit  is  a helicopter  team, 

1 for  attacking  mission, 

2 for  delaying  mission,  and 

3 for  overwatch  or  lire  support  mission. 

ARRANGEMENT:  MISION  is  a one-dimensional  array. 

MISION(I)  (integer) 

I " ],...,  N maneuver  unit  numbers 


where  N is  the  total  number  of  maneuver  units. 
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INITIALIZATION:  Required 


USERS:  ASSIGN,  CASELE,  FIRCON,  FORM,  INTEL,  LOIMOV, 

MANOUT,  MVCON 

LENGTH:  N 


COMMON/M  NT  RIG/ 

CONTENTS:  MNTRIG  stores  an  array  containing  the  tiring  threshold 

priority  value  required  for  on-call  l'ires  triggered  by  enemy 
elements  for  a given  trigger  area  and  fire  support  weapon 
code  considered. 

ARRANGEMENT:  MNTRIG(J.K)  (integer) 
where 

J - l 30  trigger  area  number 

K = 1 , . . . , MWAIR  fire  support  weapon  code. 

INITIALIZATION:  Required 

USERS:  AFO 

LENGTH:  30  * MWAIR 
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COMMON/MPTR/ 

CONTENTS: 

MPTR  contains  the  fire-request  list  entry  number  with 
whose  requesting  element  an  aerial  team  is  negotiating 
a new  mission;  zero  if  no  negotiation  is  underway. 

ARRANGEMENT: 

MPTR  is  a one-dimensional  array. 

MPTR  (I)  (integer) 

where 

I = 1, . . . , NUMAVT  aerial  unit  numbers. 

INITIALIZATION: 

None 

USERS: 

AIRFB 

IJENGTH: 

NUMAVT 

COMMON/MREADY/ 

CONTENTS:  MREADY  contains  the  launcher  firing  preparation  status. 

ARRANGEMENT:  MREADY  is  a one -dimensional  array. 

MREADY (I);  I = l,...,ITOTLN 

{1  if  launcher  I has  loaded  missiles 
for  an  indirect-fire  assignment 
0 otherwise 

where  I is  the  launcher  number  and  ITOTLN  is 
the  number  of  launchers. 


INITIALIZATION:  None 
USERS:  MFB 

LENGTH:  ITOTLN 


COMMON/NAMO/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


NAMO  contains  the  current  ammunition  supply  for  an 
aerial  vehicle. 

NAMO  is  a two-dimensional  array:  (integer  * 2) 

NAMO(I.J)  contains  the  supply  of  ammunition  type  I 

for  the  aerial  vehicle 

for 

I = 1, . . . , NAMMOS  where  NAMMOS  is  the  maximum 
number  of  ammunition  codes  allowed  per  element 
J - 1 , . . . , MANNA V where  MANNA V is  the  maximum 
number  of  aerial  vehicle  elements. 

None 

AIRAMO,  WASAIR 
NAMMOS  * MANNA V,  H 


COMMON/NAVSEC/ 

NAVSEC  contains  aerial  section  numbers  corresponding  to 
vehicle  sections. 

NAVSEC  is  a one-dimensional  array. 

NAVSEC  (I)  (integer) 

I N if  section  I is  aerial  section  N 
NAVSEC  (I)  = S 

0 if  section  I is  not  an  aerial  section 
where  I = 1 , . . . , MNSEC  section  numbers. 

Required 

DEFPOS  .MBEND.SECPRM, COUNT  .RTSRCH  .RTCROS , 
RTSECT  .RTLOIT , I (XYMCP , RTATAK , DE FSET , HE  LFIR , 
DAR FO , NAT LDR  .NEW MIS , FLGSET  ,HE  l£ON  .GETHE  L, 
ATKPRM.HDIF ,HE  LMOV  .CBOHS.SECSET  .OFFSET 

MNSEC . 
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COMMON/NAXIS/ 


r T 


CONTENTS:  NAXIS  contains  the  number  of  the  current  axis  of  advance 

for  each  maneuver  unit. 

ARRANGEMENT:  NAXIS  is  a one -dimensional  array. 

NAXIS(I)  (integer) 

I = 1 , . . . , N maneuver  unit  numbers 
where  N is  the  total  number  of  maneuver  units. 
INITIALIZATION:  Required  as  follows; 

0 for  helicopter  units 

1 for  attacking  maneuver  units 
J - 1 for  delaying  maneuver  units 

K-  1 for  supporting  fire  maneuver  units 

where 

J = the  delay  position  occupied  by  a delaying 
maneuver  unit  at  the  start  of  the  battle 

K = the  fire -support  position  occupied  by  a 

supporting  fire  maneuver  unit  at  the  start 
of  the  battle. 

USERS:  MVCON , LOIPOS , LOIMOV  .SECSET 

LENGTH:  N 


COMMON/NCBF/ 


CONTENTS:  NCBF  contains  the  number  of  entries  in  the  counterbattery 

fire  request  list  for  each  battery. 

ARRANGEMENT:  NCBF  is  a one-dimensional  array. 

NCBF  (I)  (integer) 

where 

NCBF (I)  contains  the  number  of  entries  for  battery  I 
for  I = 1 N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Zero 
USERS:  AFB.AIC 

LENGTH:  N 


COMMON/NCONC/ 


CONTENTS:  NCONC  stores  an  array  containing  the  concentration  number 

associated  with  a particular  trigger  area. 

ARRANGEMENT:  NCONC(I)  (integer) 

where  I = 1 30  trigger  area  number 

INITIALIZATION:  Required 

USERS;  AFO.REVAL 

LENGTH:  30 
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COMMON/NDELPT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


NDELPT  contains  the  number  of  the  withdrawal  point  re- 
corded for  an  aerial  unit.  Zero  if  no  point  has  been 
determined. 

NDELPT  is  a two-dimensional  array. 

NDELPT(I,J)  (integer) 
where 

f 

( 1 unit  retirement  position 
* 2 unit  defensive  or  waiting  position,  and 

J = 1, 2, . . . , NUMAVT  aerial  unit  numbers. 

None 

DEFPOS.DEFSET 
2 * NUMAVT 


COMMON/NFB/ 

NFB  stores  an  array  containing  the  number  of  the  firing 
battery,  MISTIC  launcher,  or  aerial  team  executing  the 
mission  of  each  forward  observer  and  each  ground-to-air 
communicator. 

NFB(I)  (integer) 

where  I l,...,ITOTFO  FO  number 

{ITOTFO  + 1 blue  ground-to-air  communicator 
ITOTFO  + 2 red  ground-to-air  communicator. 
Zero,  altered  during  execution. 

A FO  ,SE  LECA , A ESC , AIRFB , M FB 
ITOTFO  + 2 
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COMMON/NFLCRT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


NFLCRT  contains  the  minimum  desired  ratio  of  surviving 
MISTIC  forward  observers  to  surviving  launchers  in  a unit 
with  a specified  MISTIC  unit  weapon  code.  The  array  is 
used  to  determine  when  MISTIC  forward  observer  missions 
should  be  assigned  to  aerial  units. 

NFLCRT  is  a one-dimensional  array. 

NFLCRT(I)  (integer) 

where 

I = 1 , . . . , MWMIS-MWART  MISTIC  unit  weapon  codes . 
Required 
AFASGN 
MWMIS-MWART 


COMMON/NFMMAX/ 

NFMMAX  contains  the  maximum  number  of  forward  ob- 
servers permitted  to  be  assigned  to  a MISTIC  unit  of  a 
specified  weapon  code.  The  array  is  used  to  limit  the 
assignment  of  aerial  units  to  MISTIC  forward  observer 
missions. 

NFMMAX  is  a one -dimensional  array. 

NFMMAX(I)  (integer) 
where 

I = 1, ...  ,MWMIS  - MWART  MISTIC  unit  weapon  codes . 
Required 
AFASGN 


LENGTH  : 


MWMES- MWART 


COMMON/NFOCRT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


NFOCRT  contains  the  minimum  desired  ratio  of  forward 
observers  to  surviving  artillery  and  aerial  units  per  side. 
The  array  is  used  to  determine  when  aerial  units  should 
be  assigned  special  forward  observer  missions. 

NFOCRT  is  a one-dimensional  array. 

NFOCRT(I)  (integer) 

where 

{1  indicates  the  blue  force,  and 
2 indicates  the  red  lorce. 

Required 

AFASGN 

2 


COMMON/NFOFR/ 

NFOFR  stores  an  array  containing  the  fire-support  element 
who  initiated  fire  request  J on  fire  request  net  number  K. 

NFOFR(J.K)  (integer) 

where 

J = 1 5 fire  request  list  position  number 

K = 1 , . . . , NTFRNT  fire  request  net  number. 

Zero,  altered  during  execution. 

AFO.AFDC  ,AFSC , FSCHEK.AIRFB.CBCONT, MFB 


LENGTH: 


5 * NTFRNT 


\ .. 


aerial  units  to  special  forward  observer  missions. 
ARRANGEMENT:  NFOMAX  is  a one-dimensional  array. 

NFOMAX(I)  (integer) 
where 

C 

1 indicates  the  blue  force,  and 

2 indicates  the  red  force. 


I = < 


INITIALIZATION:  Required 
USERS:  AFASGN 

LENGTH:  2 


COMMON/NFRSAV/ 


CONTENTS: 


NFRSAV  saves  the  maximum  number  of  artillery  fire  re- 
quests that  may  be  processed  concurrently  for  each  active 
Artillery  Fire  Direction  Center.  This  common  saves 
NFRMAX(I),  when  artillery  unit  I is  assessed  a period  of 
inactivity  as  a result  of  counter  battery  fire  placed  upon  it. 


(integer) 


ARRANGEMENT:  NFRSAV(I) 
where 

I = 1 NUMART  artillery  unit. 

INITIALIZATION:  Zero,  altered  during  execution. 
USERS:  BTLETH 

LENGTH:  NUMART 


1 • 
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COMMON/NFUCRT/ 


r 

CONTENTS:  NFUCRT  contains  the  maximum  desired  ratio  of  surviving 

MISTIC  forward  observers  to  surviving  launchers  in  a unit 
with  a specified  MISTIC  unit  weapon  code.  The  array  is 
used  to  determine  when  MISTIC  launcher  missions  should 
be  assigned  to  aerial  units. 

ARRANGEMENT:  NFUCRT  is  a one -dimensional  array. 

NFUCRT(I)  (integer) 

where 

I = 1 MWMIS-MWART  MISTIC  unit  weapon  code. 

INITIALIZATION:  Required 

USERS:  AFASGN 

LENGTH:  MWMIS-MWART 

COMMON/NKPAT/ 

CONTENTS:  NKPAT  stores  an  array  containing  the  number  of  fire  pat- 

terns to  be  considered  in  selecting  targets  of  opportunity  for 
a given  fire  support  weapon  code. 

ARRANGEMENT:  NKPAT(I)  (integer) 
win  re 

I = 1 , . . . , MW  ART  fire  support  weapon  code . 

INITIALIZATION:  Required 

USERS:  SELECA 


LENGTH: 


MWART 


COMMON/NLNMAX/ 


CONTENTS:  NLNMAX  contains  the  maximum  number  of  launchers  per- 

mitted to  be  assigned  to  a unit  with  a specified  MISTIC 
unit  weapon  code.  The  array  is  used  to  limit  the  assignment 
of  MISTIC  launcher  missions  to  aerial  units. 

ARRANGEMENT:  NLNMAX  is  a one -dimensional  array. 

NLNMAX(I)  (integer) 

where 

I = 1, . . . , MWMIS-MWART  MISTIC  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  AFASGN 

LENGTH:  MWMIS-MWART 


COMMON/NM/ 

CONTENTS:  NM  contains  the  number  of  MISTIC  missiles  stowed  but  not 

loaded  aboard  a launcher. 

ARRANGEMENT:  NM  is  a one -dimensional  array. 

NM(J)  (integer) 

where 

J = l,...,ITOTLN  launcher  numbers. 
INITIALIZATION:  Required 
USERS:  LAUNCH,  LOADM,  MFB 


LENGTH: 


ITOT  LN 


CGMMON/NM  LIM/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 


NMLIM  contains  the  maximum  number  of  MISTIC  missiles 
that  may  be  loaded  for  fire  from  a launcher  belonging  to  a 
unit  with  a specified  MISTIC  weapon  code. 

NMLIM  (I)  (integer) 

where 

I = l MWMIS-MWART  MISTIC  unit  weapon  codes . 

Required 

LOADM 

MWMIS-MWART 


COMMON/NOBVH/ 

NOBVH  stores  an  array  containing  the  element  number  of 
the  vehicle  transporting  each  forward  observer  and  each 
MISTIC  launcher  element.  For  forward  observers,  a zero 
indicates  an  FO  Bravo. 

NOBVH  (I)  (integer) 

where 

1, . . . .ITOTFO  FO  number 

I = < ITOTFO  + 1 ITOTFO  + ITOTLN  launcher 

I number. 

Required 

A FO , DARFO , RE  AS  FO , A FSC  , MFB , LOA  DM 


LENGTH: 


ITOTFO  + ITOTLN 


COMMON/NOUTFG/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


NOUTFG  contains  outpost  designators  for  delaying 
maneuver  units. 

NOUTFG  is  a linear  array  (integer). 

NOUTFG(I)  = number  of  the  outpost  occupied  by 
delaying  maneuver  unit  I 

I = 1,2,. ...N 

where  N is  the  number  of  maneuver  units. 

Required.  Entires  for  units  not  at  outposts  must  be  zero. 
CNTOUT,  MVCON,  OTPT 
N 


COMMON/NPHAS/' 

NPHAS  contains  values  used  by  the  movement  controller 

model  in  representing  phase  lines. 

NPHAS  contains  two  values  as  follows: 

NMPHAS  = total  number  of  phase  lines  repre- 
sented (integer) 

NXPHAS  = the  number  of  the  phase  line  which 

the  attackers  are  presently  approach- 
ing (integer). 

Required.  NXPHAS  must  be  initialized  to  one. 

MVCON 


LENGTH: 


2 


r 


i 

i 


COM  MON/NR  DC  NT/ 


CONTENTS:  COMMON/NRDC NT/  contains  the  number  of  rounds  fired 

by  a specified  CSW  team  at  its  current  firing  position. 


ARRANGEMENT:  NRDCNT  is  a one -dimensional  array: 


NRDCNT(NCR) 

NCR  = 1, . . . , NCSWMX 

where  NCSWMX  is  the  maximum  number  of  CSW  teams. 
INITIALIZATION:  Zero,  altered  during  execution 

USERS:  CSWCON 

LENGTH:  NCSWMX 


COMMON/NREQR/ 

CONTENTS:  NREQR  contains  the  minimum  allowed  number  of  surviving 

elements  in  an  aerial  section  with  a specified  aerial  weapon 
code.  The  section  will  retire  if  this  value  is  violated. 

ARRANGEMENT:  NREQR  is  a one-dimensional  array. 

NREQR  (I)  (integer) 

where 

I = 1 N aerial  weapon  codes 

(See  COMMON/ANGLIM/  for  a definition  of 
weapon  code. 

INITIALIZATION:  Required 

USE RS : R ETIRE  , FUE  LD 

LENGTH:  N 


A-121 


COMMON/NR  L/ 


CONTENTS:  NRL  contains  the  number  of  missiles  loaded  per  loading 

operation  on  a launcher  belonging  to  a unit  with  a specified 
MISTIC  weapon  code . 

ARRANGEMENT:  NRL(I)  (integer) 

where 

I = 1 MWMIS-MWART. 


INITIALIZATION:  Required 


USERS:  LOADM,  LAUNCH 

LENGTH:  MWMIS-MWART 


COMMON/NR  NDAT/ 

CONTENTS:  NRNDAT  stores  an  array  containing  the  number  of  rounds 

required  for  the  search  and  destroy  missions  against 
concentration  area  I. 


ARRANGEMENT:  NRNDAT  is  a one -dimensional  array: 

NRNDAT(I)  (integer) 

where  I = 1, ...  ,20  search  and  destroy  concentration 

areas 


INITIALIZATION:  Required 

USERS:  FSCHEK 

LENGTH:  20 


i 


A 


r ■ 

COMMON/NRNDC  N/ 

CONTENTS:  NRNDCN  stores  an  array  containing  the  number  of  rounds 

to  be  fired  in  a specified  concentration  area  by  a specified 
fire  support  weapon  code  when  fire  is  triggered  by  movement 
of  friendly  elements. 

ARRANGEMENT:  NRNDCN(J,K)  (integer) 
where 

J = 1 20  concentration  number 

K = 1, . . . ,MWART  fire  support  weapon  code. 

INITIALIZATION:  Required 
USERS;  AFO 

LENGTH:  20  * MWART 

COMMON/NSC  HCN/ 

CONTENTS:  NSCHCN  contains  the  number  of  the  planned  concentration 

area  associated  with  a scheduled  fire  for  an  artillery  firing 
battery  (see  common  areas  XCONC  ,YCONC). 

ARRANGEMENT:  NSCHCN  is  a two-dimensional  array. 

NSCHCN(I.J)  (integer) 

NSCHCN(I.J)  contains  the  concentration  number  of 
the  Ith  fire  for  the  J1*1  battery  for 
I 1|..*|0}J  — I.....  N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB 

LENGTH:  6 * N 
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COMMON/NSTHFF/ 


CONTENTS: 

AR  RA  NGE  ME  NT : 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

1.  NTFO 

2.  NTFDC 

3.  NTFB 

4.  NAIC 

INITIALIZATION: 


NSTHFF  stores  an  array  containing  the  fire  fight  flag 
for  each  forward  observer. 

NSTHFF  is  a one -dimensional  array  (integer) 

{1  indicates  a fire  fight  exists 
0 otherwise 

fori  = 1, . . . .ITOTFO,  FO  numbers, 
where  ITOTFO  is  the  total  number  of  FO's. 

Zero,  altered  during  execution 

AFO,  AFSC  , ARFO,  HE L FIR,  NEWFO,  WRITFO 

ITOTFO 


COMMON/NTELE/ 

NTELE  contains  clock  location  data  for  the  fire  support 
model. 

NTELE  contains  four  values  (integer). 

contains  the  clock  number  of  the  last  missile  clock. 

contains  the  clock  number  of  the  last  forward 
observer  clock. 

contains  the  clock  number  of  the  last  fire  direction 
center  and  radio  net. 

contains  the  clock  number  of  the  last  fire-support 
firer. 

Required 


USERS: 


A FB , AFDC  , A FO  ,A  R FO , CASE  LE , FIRCON.SEQC  NT , 
SEQSET  ,AFDC  ,AFSC , FSC1IEK , SECRET  ,MFB 


COMMON/NTRANS/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


NTRANS  stores  an  array  containing  the  radio  net  number 
over  which  each  forward  observer  and  ground-to-air 
communicator  is  currently  transmitting. 


NTRANS  (I)  (integer) 


where 


1 , . . . .ITOTFO  FO  number 
ITOTFO  + 1 blue  ground-to-air 
communicator 

ITOTFO  + 2 red  ground-to-air 
communicator. 


and  ITOTFO  is  the  total  number  of  FO's. 


Zero,  altered  during  execution. 
AFO,  AFSC , FSCMON , WRITFO 
ITOTFO  + 2 


COMMON/NUM  FIR/ 

NUMFIR  stores  an  array  containing  the  number  of  the  fire 
support  firer  to  which  a message  is  addressed  on  each  radio 
net. 

NUMFIR  (I)  (integer) 
where 

I = 1, . . . , NTFRNT  fire  request  net. 

Zero,  altered  during  execution. 

AFDC.AFO 


LENGTH: 


NTFRNT 


wm 


1 


COMMON/NUMSEN/ 

NUMSEN  contains  the  number  of  senders  on  each  net 
queue . 

NUMSEN  is  a one -dimensional  array. 

NUMSEN(I)  (integer) 

I = 1,...,NPLT  platoon  net  subscripts 
I = NPLT  + 1,...,  NPLT  + NTEM  company  net  sub- 
scripts 

I = NPLT  + NTEM  + 1 blue  battalion  net  subscript 
I = NPLT  + NTEM  + 2 red  battalion  net  subscript 

where 

NPLT  = the  total  number  of  platoons 
NTEM  = the  total  number  of  teams 

None 

QUE,  QUKCHK,  QUEP, SENDC 
NTEM  + NPLT  + 2 


COMMON/NUM  BE  R/ 


CONTENTS:  NUMBER  contains  organization  parameters. 


ARRANGEMENT: 

NUMBER  contains  39  values  (integer). 

ORDER 

LISTED 

MNEMONIC 

DEFINITION 

1 

0 

normal  zero 

2 

NUMBLU 

number  of  blue  elements 

3 

NUMELE 

total  number  of  elements 

4 

NBSEC 

number  of  blue  sections 

5 

NSEC 

total  number  of  sections 

6 

NBPLT 

number  of  blue  platoons 

7 

NPLT 

total  number  of  platoons 

8 

NBTEM 

number  of  blue  teams 

9 

NTEM 

total  number  of  teams 

10 

NBMAN 

number  of  blue  maneuver  units 

1 1 

NMAN 

total  number  of  maneuver  units 

12 

NUMBED 

number  of  red  elements 
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CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


a 


13 

INFINITY 

largest  integer  number 

(13) 

FINITY 

largest  floating-point  number 

14 

NBLUFO 

number  of  blue  FO's 

15 

ITOTFO 

total  number  of  FO's 

16 

NBLULN 

number  of  blue  launchers 

17 

ITOTLN 

total  number  of  launchers 

18 

NAMMOS 

number  of  ammunition  codes  used 

19 

NOTPST 

number  of  outposts  represented 

20 

NBART 

number  of  blue  artillery  units 

21 

NUMART 

total  number  of  artillery  units 

22 

MNSYS 

total  number  of  weapon  systems 

23 

MNFRT 

total  number  of  direct-fire  weapon  codes 

24 

NBMIS 

number  of  blue  MIS  TIC  units 

25 

MISTUN 

total  number  of  MISTIC  units 

26 

NBAVT 

number  of  blue  aerial  vehicle  teams 

27 

NUMAVT 

total  number  of  aerial  vehicle  teams 

28 

NTSFO 

FO  number  of  the  last  special  forward 
observer 

29* 

MWBART 

maximum  weapon  code  assigned  to  blue 
artillery  units 

30* 

MWART 

maximum  weapon  code  assigned  to 
artillery  units 

31* 

MWBMIS 

maximum  weapon  code  assigned  to  blue 
MISTIC  units 

32* 

MWMES 

maximum  weapon  code  assigned  to 
MISTIC  units 

33* 

MWBAIR 

maximum  weapon  code  assigned  to  blue 
aerial  teams 

34* 

MW  AIR 

maximum  weapon  code  assigned  to  aerial 
teams 

35 

NTFRNT 

total  number  of  fire  request  nets  (or 
receivers) 

36 

NTFS FT 

total  number  of  fire  support  firing  teams 

37 

NBAIC 

number  of  blue  artillery  intelligence 
centers 

38 

NUMAIC 

total  artillery  intelligence  centers 

39 

MAXLWC 

the  maximum  value  of  weapon  code 

appearing  for  vehicular  elements, 
which  are  not  helicopter  elements 


♦Note:  Fire  support  weapon  codes  are  arranged  in  monotonically 
increasing  order  starting  at  one,  such  that: 

0-  MWBART  s MW  ART  ^ MWBMIS  - MW  MIS  -MW  BAIR  -MW  AIR 


- 
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INITIA I JZATION : Required 


USERS:  Used  throughout  the  simulation. 

LENGTH:  39 


COMMON/NUMTRG/ 

CONTENTS: 

NUMTRG  contains  the  trigger  number  which  caused  an 
on-call  fire  to  be  requested  by  a forward  observer. 

ARRANGEMENT: 

NUMTRG(I)  (integer) 

where 

I = 1 , . . . , ITOTFO  FO  number 

INITIALIZATION: 

Zero,  altered  during  execution. 

USERS: 

AFO 

LENGTH: 

ITOTFO 

COMMON/NXCONC/ 

CONTENTS: 

NXCONC  stores  an  array  containing  the  number  of  the  next 
concentration  area  to  be  fired  upon  following  completion  of 
fires  upon  concentration  I. 

ARRANGEMENT: 

NXCONC  (I)  (integer) 

where 

I = 1 20  concentration  number 

INITIALIZATION: 

Required 

USERS: 

AFO 

LENGTH: 

20 
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COMMON/NX  MIS/ 

CONTENTS:  NXMIS  contains  the  number  of  the  next  planned  concentration 

for  an  artillery  firing  battery  to  fire  at  the  conclusion  of  the 
present  area  fire  in  the  series. 

ARRANGEMENT:  NXMIS  is  a one -dimensional  array. 

NXMIS(I)  (integer) 

where 

NXMIS(I)  is  the  next  concentration  for  the  I^1  battery 
for  I = 1 N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Zero 
USERS:  AFB,  WRTTRG 

LENGTH:  N 

C OMMO  N/OND1S  T/ 

CONTENTS:  ONDIST  stores  an  array  containing  the  effective  radius  of 

concentration  area  J used  to  compute  on-call  target  dura- 
tion time  for  fire  support  weapon  code  K. 

ARRANGEMENT:  ONDIST  (J,K)  (real,  meters) 

where 

J = 1 , . . . , 20  concentration  area 

K = 1 MWAIR  fire  support  weapon  code. 

INITIALIZATION:  Required 
USERS:  AKO 


IjKNGTH: 


20  * MWAIR 


COMMON/OPEN/ 


CONTENTS:  OPEN  contains  information  associated  with  the  missile 

flight  procedure. 

ARRANGEMENT:  OPEN  contains  35  values: 

1.  J = indicator  of  missiles  flight  progress:  subscript 

of  common  arrays  RM  , ZM  , ZMD,  TF,  and  TD 
(integer) 

= forward  limit  of  missile's  field  of  view  (real , 
meters) 

= target's  element  number  (dummy  variable)  (integer) 

= FO's  target  location  error  perpendicular  to  line 
of  sight  (real,  mils) 

= FO's  target  location  error  along  line  of  sight 
(real,  mils) 


2.  FL 

3.  ITIMES 

4.  Z1 

5.  Z2 

6.  K 


indicator  of  first  iteration  (integer) 
first  iteration 
1 ~ otherwise 


J* 


7. 

N 

= number  of  consecutive  missed  pulses  (integer) 

8. 

RM 

= missile's  horizontal  flight  range  from  launch 
point  (real , meters) 

9. 

ANGM 

= missile's  heading  (real,  radians) 

10. 

SINM 

= sine  of  ANGM  (real) 

11. 

COSM 

= cosine  of  ANGM  (real) 

12. 

L 

= indicator  of  target  location  within  missile's  field 
of  view  (integer) 

I ~ target  located  within  fringe  region 
0 ~ target  location  within  center  region 
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13.  DD 


= distance  traveled  by  the  missile  during  one 
illuminator  pulse  (real,  meters) 


14.  NH 


15.  ANGFO 


= indicator  of  missile  pulse  detection 


1 ~ this  pulse  was  missed 


0 ~ otherwise 


= FO's  direction  of  travel  (real,  radians) 


16.  SANGFO 


= sine  of  ANGFO  (real) 


17.  CANGFO 


= cosine  of  ANGFO  (real) 


18.  TT 


= target's  battle  clock  time  (real , seconds) 


19.  TFO 


= FO's  battle  clock  time  (real,  seconds) 


20.  FLAG 


21.  DT 


= indicator  whether  FO  is  target  (logical) 


FLAG  = 


TRUE  ~ FO  is  target 


FALSE  ~ otherwise 


= time  increment  for  each  pulse  (real,  seconds) 


22.  SR 


= slant  range,  missile  to  target  (real,  meters) 


23.  DYP 


distance  from  target  to  the  fringe  region  limit 
of  the  field  of  view  (real , meters) 


24.  DPL 


= width  of  fringe  region  (real , meters) 


25.  LFON 


= target's  FO  (FO  number)  (integer) 


26.  LOCK 


= indicator  whether  acquisition  has  occurred  (integer) 


LOCK  = 


1 ~ acquisition  has  occurred 


0 ~ otherwise 


27.  TMC 


= dummy  variable 
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28.  AFO 


= average  acceleration  for  FO  over  his  last  event 
(real,  meters/sec^) 

29.  AT  = average  acceleration  for  target  over  his  last 

event  (real,  meters/sec 2) 

30.  VFT  = target's  final  velocity  at  the  end  of  his  last  event 

(real,  meters/second) 

31.  VFFO  = FO's  final  velocity  at  the  end  of  his  last  event 

(real,  meters/second) 

32.  XAT  = target's  X-coordinate  at  end  of  his  last  event 

(real,  meters) 

33.  YAT  = target's  Y-coordinate  at  end  of  his  last  event 

(real,  meters) 

34.  XAF  = FO's  X-coordinate  at  end  of  his  last  event  (real, 

meters) 

35.  YAF  = FO's  Y-coordinate  at  end  of  his  last  event  (real , 

meters) 

INITIALIZATION:  None 

USERS:  FLIGHT,  FINAL,  MICONG 

LENGTH:  35 
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COMMON/ORE  SPN/ 


CONTENTS:  ORESPN  stores  an  array  containing  the  average  reaction 

time  of  a fire  support  unit  with  weapon  code  I for  on-call 
targets. 

ARRANGEMENT:  ORESPN(I)  (real,  seconds) 
where 

I = 1 MWART  artillery  unit  weapon  code. 

INITIALIZATION:  Required 
USERS:  AFO 

LENGTH:  MWART 

COMMON/OUT  PST/ 

CONTENTS:  OUTPST  contains  four  linear  arrays  describing  character- 
istics of  outposts. 

ARRANGEMENT: 

/ 

1 if  units  have  begun  to  withdraw 

IWDRAW  (I)  = < 

0 if  otherwise  (integer) 

OTMDEL(I)  = minimum  delay  time  required  for 
withdrawal  (real,  seconds) 

OUTTBP(I)  = minimum  threat  level  required  for 
withdrawal  (real) 

OUTRBP(I)  = minimum  range  to  enemy  force  re- 
quired for  withdrawal  (real,  meters) 

I = l N , . . . , 10 

where  N is  the  number  of  outposts  (N  - 10). 

INITIALIZATION:  Required  for  OTMDEL.OUTTBP  and  OUTRBP.  IWDRAW 
must  be  initialized  with  zeros. 

USERS:  MVCON 

LENGTH:  4 * 10 


COMMON/PKART/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


PKART  contains  kill  probabilities  for  artillery  fire  against 
ground  elements . 

PKART  is  a three-dimensional  array. 

PKART(I,J,K)  (real) 
where 

PKART(I,J,K)  contains  the  kill  probability  of  kill 
type  I by  battery  J against  weapon 
code  K 

for  I = 

J = 1, ...» 8 

K - 1 N where  N is  the  maximum  weapon  code . 

Required 

ARLETH 

4*8*N 


COMMON/PKPB/ 

PKPB  contains  kill  probabilities  and  fixed  biases  for  each 
firing  event  for  printing.  Kill  types  not  considered  (i.e. , 
a lesser  kill  type  occurred)  will  be  zero. 

PKPB  contains  seven  variables  as  follows: 


1.  PNH  - 

2.  PMH  - 

3.  PFH  - 

4.  PMFH  - 

5.  PKH  - 


probability  of  no  kill 
probability  of  a mobility  kill 
probability  of  a firepower  kill 
probability  of  a mobility  firepower  kill 
probability  of  a complete  kill 
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INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


6.  XTOT  - horizontal  fixed  bias 

7.  YTOT  - vertical  fixed  bias. 
None 

FIRMOD,  IIPROD,  TLETII 
7 


COMMON/PKTNK/ 

PKTNK  contains  sets  of  kill  probabilities  corresponding  to 
tank  type  targets . 

PKTNK  is  a five -dimensional  array. 


PKTNK(I,J,K,L,M)  (real) 


I 

J 

K 

L 

M 


1 . .  . . , 6 subscripts  corresponding  to  range 

intervals  as  defined  in 
COMMON/1 1 PRNG/ 

1. .  . . ,5  subscripts  corresponding  to  kill  types 

1 . .  . . . 7 subscripts  corresponding  to  firer- 

target  aspect  angle  as  defined  in 
COMMON/TARASP/ 

1 . .  . . , 6 subsc ripts  corresponding  to  target 

speeds  as  defined  inCOMMON/TARSPD/ 

!»•*•* 

MTNKLT  subscript  corresponding  to  firer-ammo- 
target  combinations  (e.g. , KC11AR 
from  COMMON/IAMMO/)  where 
MTNKLT  is  the  maximum  value  of 
KC11AR  for  lank-target  combinations. 


Required. 


DDSX4 


(»•!>•  7*0  •MTNKLT 
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COMMON/PNG/ 


CONTENTS:  PNG  contains  the  probability  of  a successful  launch  from  a 

launcher  belonging  to  a unit  with  specified  MISTIC  weapon 
code. 


ARRANGEMENT:  PNG(I)  (real) 

where 

I = 1 , . . . , MWMIS-MWART  MISTIC  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  MFB,  LAUNCH 

LENGTH:  MWMIS-MWART 


COMMON/RADINC/ 

CONTENTS:  RADINC  contains  the  incremental  reduction  in  the  enemy 

complex  circled,  described  by  COMMON/RADMAX/ , for 
use  in  selecting  a target  complex  by  an  aerial  vehicle 
section  currently  having  available  a given  number  of  sup- 
pressive fire  and  point  fire  weapons. 

ARRANGEMENT:  RADINC  is  a two-dimensional  array. 

RADINC  (I,  J)  contains  the  increment  for  an  air  section 
having  1-1  suppressive  fire  and  J-l  point 
fire  weapons  available. 

for 

I = 1.....NAFW+1  where  NAFW is  the  maximum  num- 

ber of  suppressive  fire  weapons 
available 

J = 1, . . . .NPFW+l  where  NPFW  is  the  maximum  num- 

ber of  point  fire  weapons  for  a 
section. 

INITIALIZATION:  Required 
USERS:  AIR  KIR 

LENGTH:  (NAKW+1)*(NPKW+  1) 
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COMMON/RADMA/ 


CONTENTS:  RADMA  contains  the  radii  of  mission  operations  areas  for 

aerial  units  of  a given  force  flying  missions  of  specified 
types. 


ARRANGEMENT:  RADMA  (I,  J) 
where 


(real,  meters) 


J = S 


I = < 


1 for  blue  force 

2 for  red  force 

1 indicates  a standby  mode 

2 indicates  a direct-fire  attack  mission 

3 indicates  an  observation  mission 

4 indicates  an  indirect-fire  mission. 


INITIALIZATION:  Required 
USERS:  RTCROS  .RTSRCIl 

LENGTH:  4*2 


COMMON/RADMAX/ 

CONTENTS:  RADMAX  contains  the  maximum  allowable  radius  within 

which  a ground  target  complex  will  be  attacked  by  an  aerial 
vehicle  section  currently  having  available  a given  number 
of  suppression  fire  and  point  fire  weapons. 

ARRANGEMENT:  RADMAX  is  a two-dimensional  array. 

RADMAX(I.J)  contains  the  radius  for  an  air  section 
having  1-1  suppressive  fire  and  J-l 
point  fire  weapons  available 

for  I = 1,...,NAFW  + 1 where  NAFW  is  the  maximum 

number  of  suppressive  fire  weapons  for 
a section 

J = 1, . . . , NPFW  + 1 where  NPFW  is  the  maximum 

number  of  point  fire  weapons  for  a section. 

INITIALIZATION:  Required 
USERS:  AIR  FIR 

LENGTH:  (NAFW  + 1)(NPFW  + 1) „ 
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COMMON/RAFMNF/ 


CONTENTS:  RAFMNF  contains  the  adjusted  target  range  beyond  which 

a given  type  of  forward  observer  will  not  engage  a target 
with  direct  fire. 

ARRANGEMENT:  RAFMNF  is  a two-dimensional  array. 

RAFMNF(I.J)  (real,  meters) 


where 


1 indicates  an  artillery  FO 
I = < 2 indicates  a MISTIC  FO 

3 indicates  a special  FO,  and 


1 indicates  the  FO  belongs  to  the 
blue  force 

2 indicates  the  FO  belongs  to  the 
red  force. 


INITIALIZATION:  Required 


USERS: 


FIRCON 


LENGTH: 


COMMON  /R  A F MN  L/ 


CONTENTS:  RAFMNL  contains  the  adjusted  target  range  beyond  which  a 

launcher  having  a specified  weapon  code  will  not  engage  a 
target  with  direct  fire. 

ARRANGEMENT:  RAFMNL  is  a one-dimensional  array. 

RAFMNL(I)  (real,  meters) 
where 


I = 1. 


, MWMIS-MWART  MISTIC  unit  weapon  codes . 


INITIALIZATION:  Required 


USERS: 


FIRCON 


LENGTH: 


MWMB  - MWART 


A-140 


COMMON/RAM/ 


CONTENTS:  RAM  stores  an  array  containing  the  maximum  target  engage- 

ment range  for  a specified  artillery  or  MISTIC  weapon  code. 

ARRANGEMENT:  RAM(I)  (real,  meters) 

where 

I = 1, . . . , MW  MIS  fire  support  weapon  code. 

INITIALIZATION:  Required 

USERS:  AVAIL 

LENGTH:  MW  MIS 

COMMON/RATT/ 

CONTENTS:  RATT  contains  the  range  adjustment  factor  for  a specified 

firer  weapon-ammunition  code,  target  weapon  system  code. 

ARRANGEMENT:  RATT  is  a two-dimensional  array. 

RATT(J.KF) 

KF  = 1 NF  the  number  of  firer  weapon- 

ammunition  codes  from 
COMMON/I11TPRB/ 

J = 1, ....  NT  the  number  of  weapon  system  codes . 

INITIALIZATION:  Required 

USERS:  ADTGSL.FIRCON 


LENGTH: 


NT  * NF 


COMMON/RDFMIN/ 


CONTENTS:  RDFMIN  contains  the  minimum  range  from  which  a weapon 

of  a specified  type  may  be  launched  from  an  aerial  section 
with  specified  aerial  weapon  code. 

ARRANGEMENT:  RDFMIN(I,J)  (real,  meters) 

where 

/ 

1 indicates  direct-fire  MISTIC  missile 

2 indicates  a beam-rider  missile 
* - * 3 other  point-fire  weapons 

4 suppressive  fire  weapons 

\ 

J = 1, .. . ,N  helicopter  weapon  code  numbers 

(See  COMMON/ANGLIM/  for 
definition  of  weapon  code) . 

INITIALIZATION:  Required 
USERS:  RTATAK 

LENGTH:  4 * N 


COMMON/REACT/ 


CONTENTS:  REACT  contains  time  required  for  an  aerial  unit  to  move 

from  its  loiter  position  off  the  battlefield  to  its  initial 
battlefield  position. 

ARRANGEMENT:  REACT(I)  (real,  seconds) 

where 

I = 1,2,...,NUMAVT  aerial  unit  numbers . 

INITIALIZATION:  Required 

USERS:  SECSET 


LENGTH:  NUMAVT 
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COMMON/RE  DDET/ 


CONTENTS:  REDDET  contains  the  detection  codes  for  each  red  (de- 

ment: a 0 for  no  knowledge,  a 1 for  approximate  know- 
ledge, a 2 for  full  visual  detection,  and  a 3 for  a pinpoint 
detection. 

ARRANGEMENT:  REDDET  is  a two-dimensional  array  of  halfwords: 

REDDET  (I , J)  (integer  * 2) 

I = 1 NUMRLU  the  blue  element  numbers 

J = 1, . .. , NUMELE  - NUMBLU  the  red  element 
numbers  reduced  to  the  range  1 , . . . , NRED,  where 
NUMBLU  is  the  total  number  of  blue  elements. 

NRED  is  the  total  number  of  red  elements, 
and  NUMELE  is  the  total  number  of  elements. 

INITIALIZATION:  None 

USERS:  AIR  FIR  , AIRPOR,  GETDET,  IDET,  IDETP,  KOMDET 

LENGTH:  NUMBLU  * NRED  halfwords  (NUMBLU  * NRED), II 

SC  E NARIO  DE  PE  NDE NT 

Routines  using  Common  /REDDET/  may  require  recompilation  to  obtain  the 
desired  maximum  value  for  subscript  I. 


COMMON/RE  MONT/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


Common  /RE MONT/  contains  the  remount  time  for  a 
CSW  unit  that  has  reached  its  carrier , following  its 
return  from  a firing  position. 

RE  MONT  is  a one -dimensional  array: 

REMONT(NKWEP)  (real,  seconds) 

for 

NKWEP  = 1 NCWMAX  CSW  unit's  weapon  code 

where  NCWMAX  is  the  total  number  of  CSW  weapon  codes. 

Required 

MOUNT 

NCWMAX 


COMMON/RETFCN/ 

RETFCN  contains  the  fraction  of  an  aerial  unit  that  must 
retire  before  the  unit  itself  will  retire,  given  the  unit  has 
a specified  aerial  weapon  code. 

RETFCN(I)  (real) 

where 

I = 1,2, .. . .MWAIR-MWMIS  aerial  unit  weapon  codes . 
Required 
ATDEC 

MWAIR-MWMIS 
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COMMON/RF/ 


CONTENTS:  RF  contains  target  surface  average  reflectance. 

ARRANGEMENT:  RF  is  a one-dimensional  array. 

RF(1)  = target  surface  average  reflectance  (real, 
foot-lamberts/lumen/feet2) 

where 

I = l N target  weapon  system  code  numbers. 

INITIALIZATION:  Required 
USERS:  DETII 

LENGTH:  N 


COMMON/R  FOMAX/ 

CONTENTS:  R FOMAX  contains  an  array  that  specifies  the  range  from 

the  target  at  which  initiation  of  illumination  is  desired  for 
aerial  sections  illuminating  targets  for  indirect  fire  MISTIC 
attack. 

ARRANGEMENT:  RFOMAX  is  a one -dimensional  array. 

RFOMAX(I)  (real,  meters) 
where 

I = MISTIC  weapon  code  of  unit  to  which  aerial 
section  is  assigned. 

INITIALIZATION:  Required 


USERS: 

LENGTH: 


RTATAK 

MWMIS-MWART 
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COMMON/RFUEL/ 

CONTENTS:  RFUEL  contains  the  rate  at  which  fuel  is  expended  by  aerial 

elements  having  specified  aerial  weapon  codes  and  perform- 
ing specified  movement  activities. 

ARRANGEMENT:  RFUEL(I,J)  (real,  pounds/second) 

where 

1 when  aerial  section  is  loitering 

2 when  aerial  section  is  performing 
enroute  movement 

3 when  aerial  section  is  attacking  a target 

4 when  aerial  section  is  searching  for 
a target 

J = 1, . . . ,N  aerial  weapon  codes  (See 
COMMON/ANGLIM/) . 

INITIALIZATION:  Required 
USERS:  SECSET  ,HELMOV 


LENGTH:  4 * N 
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COMMON/RLNMAX/ 

CONTENTS:  RLNMAX  contains  an  array  that  specifies  the  range  from 

the  target  at  which  an  indirect-fire  MISTIC  launch  sequence 
of  an  aerial  section  should  commence. 

ARRANGEMENT:  RLNMAX  is  a one -dimensional  array. 

RLNMAX(I)  (real,  meters) 

where 

I = MISTIC  weapon  code  of  unit  to  which  aerial 

section  is  assigned.  fj 

INITIALIZATION:  Required 

USERS:  RTATAK 

LENGTH: MWMIS  -MWART 

COMMON/RM/ 

CONTENTS:  RM  contains  the  down-range  missile  distance  at  correspond- 

ing time  TF  (given  in  COMMON/TF). 

ARRANGEMENT:  RM(1)  (real,  meters) 

I = 1,  • ■ • , N 

where  N = number  of  distance  points, 

RM(1)  =0.0 


INITIALIZATION:  Required 
USERS:  FLIGHT 

LENGTH:  N 


COMMON/RMAX 


CONTENTS: 


ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


Common  RMAX  contains  the  maximum  desirable  firing 
range  for  a CSW  unit  of  a given  weapon  code. 

RMAX  is  a one-dimensional  array: 

RMAX  (I)  (real,  meters) 

I = 1, . . . , NCWMAX  CSW  weapon  code 

where  NCWMAX  is  the  maximum  number  of  weapon 
codes  for  crew  served  weapons. 

Required 

CSWGRD 

NCWMAX 


CONTENTS: 


ARRANGEMENT: 


COMMON/RMIN/ 

Common  RMIN  consists  of  a single  variable  and  an  array 
containing  the  minimum  desirable  firing  range  for  a CSW 
unit  of  a given  weapon  code. 

1)  RMINO  - the  minimum  distance  between  a threat 
position  and  an  A PC  to  allow  an  A PC  to  dismount 
crews  in  the  attack  mode. 

2)  RMIN(I)  - the  minimum  desired  firing  range  for  a CSW 
unit  of  weapon  code  I.  (real,  meters) 

I = 1,..., NCWMAX  CSW  weapon  code 

where  NCWMAX  is  the  maximum  number  of  weapon  codes 
for  crew  served  weapons. 

Required 

CSWCON,  CSWGRD 
NCWMAX  + 1 


INITIALIZATION: 

USERS: 

LENGTH: 
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COMMON/RSTAS/ 


CONTENTS: 


RSTAS  contains  the  radius  of  a semicircle  defining  the  end 
of  a loiter  station  of  a specified  type  occupied  by  an  aerial 
section  with  a given  aerial  weapon  code. 


ARRANGEMENT:  RSTAS(I.J) 
where 


(real,  meters) 


I = < 


1 indicates  section  is  waiting  for 
fire  support 

2 indicates  section  is  waiting  at 
retirement  position 

3 indicates  section  is  waiting  at 
defensive  position. 


J = 1 N aerial  section  weapon  codes 

(See  COMMON/ANGLIM/). 


INITIALIZATION:  Required 
USERS:  RTLOIT 

LENGTH:  3 * N 


COMMON/RSTAU/ 


CONTENTS: 


RSTAU  contains  the  radius  of  a semicircle  defining  the  end 
of  a loiter  station  of  a given  type  occupied  by  an  aerial  unit 
with  a specified  weapon  code. 


ARRANGEMENT:  RSTAU(I.J) 
where 


(real,  meters) 


I = 


1 indicates  unit  is  awaiting  a mission 

2 indicates  unit  is  at  retirement  position 
t 3 indicates  unit  is  at  defensive  position 

4 indicates  unit  is  loitering  as  an  indirect- 
fire  support  unit,  and 


J = 1 .... , MVVAIR-MWMIS  aerial  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  RTLOIT 

LENGTH:  4 * (MWAIR-MWMIS)  


jam 


J 
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COMMON/RTKONH/ 


CONTENTS: 

ARRANGEMENT: 

1.  ISTRT 

2.  JSTRT 

3.  EMIN 

4.  I FIN 

5.  JFIN 

6.  RADIUS 

INITIALIZATION: 

USERS: 


RTKONH  contains  constants  used  in  dynamic  route 

selection  for  aerial  sections  and  units. 

RTKONH  contains  six  values: 

= route  selection  grid  row  containing  the  initial 
point  of  an  aerial  vehicle  section  route 
(ISTRT  must  be  even  and  not  greater  than 
IMAX  (see  COMMON/TACKON/)). 

= route  selection  grid  column  containing  the  initial 
point  of  an  aerial  vehicle  section  route  (JSTRT 
must  be  equal  to  JFIN  and  satisfy  the  relation 
1 4 JSTRT  4 5). 

= the  distance  between  rows  of  an  aerial  vehicle 
route  selection  grid. 

= route  selection  grid  row  containing  the  final  point 
of  an  aerial  vehicle  section  route  (IFIN  must  be 
even  and  must  satisfy  the  relation 
ISTRT  < IFIN  < IMAX  (see  COMMON/TACKON/)). 

= route  selection  grid  column  containing  the  final 
point  of  an  aerial  vehicle  section  route  (JFIN 
must  equal  JSTRT). 

= distance  from  the  initial  point  in  the  E(I,J)  grid 
within  which  the  computed  route  is  used. 

Required 

RTSELH,  XYLOCH 


LENGTH: 


6 


COMMON/RTRIG/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


RTRIG  stores  an  array  containing  the  radius  of  each  trigger 
area. 

RTRIG(I)  (real,  meters) 

where 

I = 1 30  trigger  area  number. 

Required 

REVAL.TRIG 

30 


COMMON/RXFIRE/ 

Common  RXEIRE  contains  the  distance  to  the  threat 
position  at  the  Kth  point  defining  the  range  fire  power 
index  versus  distance  curve. 

RXFIRE  is  a one -dimensional  array: 

RXFIRE(K)  (real,  meters) 

K = 1 ICRMAX 

where  ICRMAX  is  the  number  of  points  in  the  array,  a 
user  supplied  storage  dimension  parameter. 

Requi  red 

CSWDES 

ICRMAX 
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COMMON/RYFIRK/ 


CONTENTS: 

Common  RYFIRE  contains  the  value  of  the  range  fire 
power  index  for  a CSW  unit  with  weapon  code  NKWEP 
corresponding  to  a distance  RXFIRE(K). 

ARRANGEMENT: 

RYFIRE  (K,  NKWEP)  (real) 

K = 1, . . . ,ICRMAX 

NKWE  P = 1 , NCW  MAX  CSW  weapon  code 

where  ICR  MAX  is  the  number  of  points  used  in 
COMMON/RX FIRE/  and  NCWMAX  is  the  maximum 
number  of  weapon  codes  for  crew  served  weapons. 

INITIALIZATION: 

Required 

USERS: 

CSWDES 

LENGTH: 

ICR  MAX  * NCWMAX 

SCENARIO  DEPENDENT 

Routines  using  COMMON/RYFIRE/  may  need  to  be  reeompiled  to  obtain  the 
desired  maximum  value  for  subscript  K. 

COMMON/SATARG/ 

CONTENTS:  SATARG  contains  speed  and  aspect  data  for  firer  and  target 

for  each  firing  event. 

ARRANGEMENT:  SATARG  contains  thirteen  values  as  follows: 

1.  ASPCT1 

= the  firer -target  aspect  angle  for  computing 
hit  probability  (real,  radians) 

2.  ASPCT2 

= the  firer-target  asoect  angle  for  computing 
kill  probabilities  (real,  radians) 

3.  AFACT1 

= the  interpolation  factor  for  the  hit  probability 
aspect  angle  (real) 

4.  AFACT2 

= the  interpolation  factor  for  the  kill  probability 
aspect  angle  (real) 

A 


1 


5.  IA1 
G.  IA2 

7.  SPDFC1 

8.  SPDFC2 

9.  IS1 

10.  IS 2 

11.  RNGFAC 

12.  IR 

13.  ASPECT 


= the  subscript  of  the  interval  in  COMMON/ 
TARASP/  which  contains  the  hit  probability 
aspect  angle  (integer) 

= the  subscript  of  the  interval  in  COMMON/ 
TARAS  P/which  contains  the  kill  probability 
aspect  angle  (integer) 

= the  interpolation  factor  for  the  target  speed 
(real) 

= the  interpolation  factor  for  the  lirer  speed 
(real) 

= the  subscript  of  the  interval  in  COMMON/ 
TARS PlV which  contains  the  target  speed 
(integer) 

= the  subscript  of  the  interval  in  COMMON/ 
VEHSPIV which  contains  the  firer  speed 
(integer) 

= the  interpolation  factor  for  the  firer-target 
range  (real) 

= the  subscript  of  the  interval  in  COMMON/ 
HPRNG/  which  contains  the  firer-target 
range  (integer) 

= the  true  fire  target  aspect  angle  (real,  radians) 


INITIALIZATION:  None 


USERS:  DDSX2,  DDSX3,  DDSX4,  FIRMOD,  SPDASP 

LENGTH:  13 
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COMMON/SC/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

1.  SENANG 

2.  ALPHAR 

3.  ALPHAF 

4.  BETAL 


Common  SC  contains  the  x-coordinatc  of  both  red  and 
blue  force  strongpoints . 

SC  is  a one -dimensional  array: 

SC  (I) 

I = 1, . . . , NRSP  subscripts  for  the  red  strongpoints 

I = NRSP  + 1,. . . ,NRSP  + NBSP  subscripts  for  the  blue 

strongpoints 

where  NBSP  is  the  number  of  red  strongpoints  and  NBSP 
is  the  number  of  blue  strongpoints,  user-supplied  storage 
dimension  parameters. 

Required 

CSRTSL 

NRSP  + NBSP 


COMMON/SCANNS/ 

SCANNS  contains  constants  used  in  defining  the  field  of  view 

for  an  indirect-fire  guided  missile  using  a ballistic  trajectory. 

SCANNS  contains  seven  values  arranged  as  follows 

= the  angle  in  a vertical  plane  containing  the  missile  direc- 
tion of  flight  between  the  normal  to  the  missile  direction 
of  flight  and  the  axis  of  the  field  of  view  (real,  radians). 

= the  angle  in  a vertical  plane  containing  the  missile  direc- 
tion of  flight  between  the  axis  of  the  field  of  view  and 
rear  edge  of  the  field  of  view  (real,  radians). 

= the  angle  in  a vertical  plane  containing  the  missile  direc- 
tion of  flight  between  the  axis  of  the  field  of  view  and  the 
forward  edge  of  the  field  of  view  (real,  radians). 

= the  angle  in  a plane  containing  the  sensor  and  the  roar  edge 
of  the  trapezoid  between:  1)  a normal  to  the  roar  odge  of 
the  trapezoid  through  the  sensor,  and  2)  the  intersection 
between  the  rear  edge  of  the  trapezoid  and  the  left  lateral 
side  of  the  trapezoid  (real,  radians). 


1 -> 


A 


5.  BETAR  = the  analogue  of  BETAL  for  the  right  side  of  the  trapezoid. 

6.  DELTAL  = the  angle  in  a plane  containing  the  sensor  and  the  front  edge 

of  the  trapezoid  between:  1)  a normal  to  the  front  edge  of 
the  trapezoid  through  the  sensor,  and  2)  the  intersection 
between  the  front  edge  of  the  trapezoid  and  the  left  lateral 
side  of  the  trapezoid  (real,  radians). 

7.  DELTAR  = the  analogue  of  DELTAL  for  the  right  side  of  the  trapezoid. 
INITIALIZATION:  Required. 

USERS:  SEEKER 

LENGTH:  7 

COMMON/SCAPH/ 

CONTENTS:  SCAPH  corresponds  exactly  to  SCAP  but  is  associated  with 

estimates  of  difficulty  prepared  by  a helicopter  section 
leader. 

ARRANGEMENT:  See  COMMON/SCAP/. 

INITIALIZATION:  Required 
USERS:  RTSELH 

LENGTH:  NRWP  + NBWP 


COMMON/SCHTIM/ 


CONTENTS:  SCHTIM  contains  the  desired  start  time  for  an  artillery 

scheduled  fire  mission. 

ARRANGEMENT:  SCHTIM  is  a two-dimensional  array. 

SC HTEM(I, J)  (real,  seconds) 

SCHTIM  (I,  J)  contains  the  time  for  the  I^1  scheduled 

fire  by  the  J^1  battery  for  I = 1 6; 

J = 1.....N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB 

LENGTH:  6 * N 

COMMON/SDL/ 

CONTENTS:  SDL  contains  the  standard  deviation  of  time  distribution 

whose  mean  is  TBL. 

ARRANGEMENT:  SDL(I)  (real,  seconds) 

where 

I = l MWMIS-MWART  MISTIC  unit  weapon  codes . 

INITIALIZATION:  Required 
USERS:  LOA  DM,  LAUNCH 

LENGTH:  MWME-MWART 
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COMMON/SFR/ 


CONTENTS:  SFR  contains  the  standard  deviation  of  the  time  distribution 

whose  mean  is  TBFR. 

ARRANGEMENT:  SFR(I)  (real,  seconds) 

where 

I = 1 , . . . , MWMIS-MWART  MISTIC  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  MFB,  LAUNCH 

LENGTH:  MWMIS-MWART 


COMMON/SHBM/ 


CONTENTS: 


ARRANGEMENT: 


SHBM  contains  the  standard  deviation  of  the  distribution 
of  time  required  to  launch  a direct  lire  missile  of  a given 
type  from  a helicopter  having  a given  aerial  weapon  code. 

SHBM(I,J)  (real,  seconds) 

where  I = i 1 fwr  11  MISTIC  missile 

\ 2 for  a beam-rider  missile,  and 

J = 1 NA3,  the  maximum  number  of  weapon 

codes  assigned  to  aerial  vehicle  elements. 
Note  that  weapon  codes  assigned  in  COMMON 
/ LWCOD/  are  numbered  1 , . . . , MAX  LWC 
for  ground  elements  and  from 

MAXLWC  +■  l MAXWC  for  aerial  vehicle 

elements.  Thus,  NA3  - MAXWC  - MAXLWC. 


INITIALIZATION: 

USERS: 

LENGTH: 


Required 
TFCOMP 
2 * NA3 
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COMMON/SIGADJ/ 


CONTENTS:  SIGADJ  stores  an  array  containing  the  standard  deviations 

of  the  distribution  of  time  required  to  adjust  firing  data 
after  receipt  of  an  adjustment  message  over  a specified 
radio  net. 

ARRANGEMENT:  SIGADJ  is  a one-dimensional  array: 

SIGADJ(I)  (real,  seconds) 

I = 1 , . . . , NT  FR  NT  fire  request  net 
where  NTFRNT  is  the  total  number  of  fire  request  nets. 
INITIALIZATION:  Required 

USERS:  AFDC 

LENGTH:  NTFRNT 

COMMON/SIGAL/ 

CONTENTS:  SIGAL  contains  the  standard  deviation  of  the  distribution 

of  time  for  an  artillery  firing  battery  to  load,  lay,  and 
fire  the  initial  volley  of  a fire  mission  of  specified 
weapon  code  (see  COMMON/UAL/). 

ARRANGEMENT:  SIGAL  is  a one -dimensional  array: 

SIGAL(I)  (real,  seconds) 

SIGAL(I)  contains  the  time  for  the  Ith  artillery  fire  support 
weapon  code 

I = 1, . . . , MWART 

where  MWART  is  the  maximum  artillery  unit  weapon  code. 
INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB 

LENGTH:  MWART 
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COMMON/SIGDE  F/ 


CONTENTS:  SIGDEF  contains  the  single  shot  deflection  errors  about  the 

aim  point  for  individual  weapons  in  an  artillery  firing 
battery  (see  COMMON/SIGRAN/). 

ARRANGEMENT:  SIGDEF  is  a one -dimensional  array. 

SIGDEF (I)  (real,  meters) 

where 

SIGDEF(I)  contains  the  errors  for  weapons  in  the 
Ith  type  artillery  weapon  code  batteries 

for  I = 1 N where  N is  the  maximum  artillery 

weapon  code. 

INITIALIZATION:  Required 


USERS: 


ARLETH 


LENGTH: 


C OMMO  N/SIG  F FE  / 


CONTENTS: 


SIGFFE  contains  the  standard  deviation  of  the  distribution 
of  time  for  an  artillery  battery  of  specified  weapon  code 
to  load,  lay,  and  fire  subsequent  rounds  of  a firc-l'or- 
el'fect  mission  (see  COMMON/UI'FE/) . 


ARRANGEMENT: 


SIGFFE  is  a one -dimensional  array: 


SIGFFE(I)  (real,  seconds) 

SIGFFE(I)  contains  the  time  for  the  artillery  fire 
support  weapon  code  for 
I = 1 MWART 

where  MWART  is  the  maximum  artillery  unit  weapon  code 


INITIALIZATION: 


Required,  not  altered  during  execution. 


USERS: 


LENGTH: 


MWART 
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COMMON/SIGONP  / 


CONTENTS:  SIGONP  stores  an  array  containing  the  standard  deviations 

of  the  distribution  of  time  required  to  process  the  original 

fire  request  for  an  on-call  target  over  each  radio  net. 

ARRANGEMENT:  SIGONP  is  a one-dimensional  array: 

SIGONP(I)  (real,  seconds) 

I = 1 , . . . , NTFRNT  fire  request  net 

where  NTFRNT  is  the  total  number  of  fire  request  nets. 

INITIALIZATION:  Required 

USERS:  AFDC 

LENGTH:  NTFRNT 


common/sig  pbr/ 

• * | 

CONTENTS: 

SIGPBR  stores  an  array  containing  the  standard  deviations 
of  the  distribution  of  target  priorities  reported  by  FO  Bravo 

.1  I 

of  type  K requesting  fire  of  type  L. 

ARRANGEMENT: 

SIGPBR(K,  L)  (real) 

where 

f 

1 regular  FO  Bravo 

K = < 

2 special  FO  Bravo 

L = 

1 MWART  fire  support  weapon  code. 

INITIALIZATION: 

Required 

USERS: 

AFO 

LENGTH: 

2 * MWART 
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COMMON/SIGPLT/ 


r T ^ 


CONTENTS:  SIGPLT  stores  an  array  containing  the  standard  deviations 

of  the  distribution  of  time  required  to  process  an  original 
fire  request  against  a target  of  opportunity  over  each  radio 
net. 

ARRANGEMENT:  SIGPLT  is  a one-dimensional  array: 

SIGPLT (I)  (real,  seconds) 

I = 1 , . . . , NT FR  NT  fire  request  net 

where  NTERNT  is  the  total  number  of  lire  request  nets. 

INITIALIZATION:  Required 


USERS: 


A EDC 


LENGTH:  NTFRNT 


COMMON/SIGRAN/ 

CONTENTS:  SIGRAN  contains  the  single  shot  range  errors  about  the 

aim  point  for  individual  weapons  in  an  artillery  firing 
battery  (see  COMMON/SIGDEE/). 

ARRANGEMENT:  SIGRAN  is  a one-dimensional  array. 

SIGRAN(I)  (real,  meters) 

where 

SIGRAN(I)  contains  the  errors  for  weapons  in  the 
ith  type  artillery  weapon  code  batteries 

for  I = 1 N where  N is  the  maximum  artillery 

weapon  code. 


INITIALIZATION:  Required 
USERS:  ARLETII 

111  NOTH:  N 
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COMMON/SIGRBR/ 


r — 

CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


1 


SIGRBR  stores  an  array  containing  the  standard  deviations 
of  the  distribution  of  the  number  of  rounds  requested  by  FO 
Bravo  of  type  I requesting  fire  of  type  J. 


SIGRBR  (I,  J)  (real) 

where 


I = 


/ 

1 regular  FO  Bravo 

< 

2 special  FO  Bravo 


v 

J = 1 , MWART  fire  support  weapon  code . 


Required 


AFO 

2 * MWART 


COMMON/SIGSEN/ 

SIGSEN  contains  the  standard  deviation  of  the  time  distribu- 
tion whose  mean  is  USEN. 

SIGSEN(I) 

where 

I = 1, . . . , NTFRNT  fire  request  nets. 

Required 

MFB.AIRFB 


LENGTH: 


NTFRNT 


COMMON/SKY/ 


CONTENTS:  SKY  contains  miscellaneous  constants  required  in  the  aerial 

vehicle  detection  model  to  describe  atmospheric  conditions. 

ARRANGEMENT:  SKY  is  a three-dimensional  array. 

SILL  = the  sky  (ambient)  illuminance  level 
(real,  lumens/feet2) 

SL  = the  sky  luminance  level  (real, 
foot-lamberts) 

VR  = meteorological  visibility  range  (real, 
meters). 

INITIALIZATION:  Required 
USERS:  DETH 

LENGTH:  3 

COMMON/S  IETIM/ 

CONTENTS:  SLSTIM  contains  the  latest  possible  starting  time  of  an 

artillery  scheduled  fire  mission. 

ARRANGEMENT:  SLSTIM  is  a two-dimensional  array. 

SLSTIM(I , J)  (real,  seconds) 

SLSTIM(I , J)  contains  the  time  for  the  I^1  mission 
for  the  Jth  battery  for  I = 1 , . . . , G ; 

J = 1 , . . . , N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB 


LENGTH: 


6 * N 


COMMON/SPDPHS/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


SPDPHS  contains  the  speed  at  which  a maneuver  unit  is 
allowed  to  travel  after  it  has  reached  a phase  line  when 
it  is  waiting  for  other  attacking  maneuver  units  to  reach 
the  phase  line. 

SPDPHS  is  a two-dimensional  array 
where 

SPDPHS(I,J)  = the  speed  at  the  Ith  phase  line  for 
the  Jth  maneuver  unit 

for  I = 1 4 

J = 1,...,N  where  N is  the  total  number  ol  maneu- 
ver units. 

Required  for  all  phase  line  included. 

MVCON 

4*N 

common/spdse  / 

SPDSE  contains  the  desired  speed  recorded  for  each  aerial 
section  while  operating  independently. 

SPDSE (I)  (real,  meters/second) 

where 

I = 1, . . . ,N  aerial  section  numbers. 

None 

SECPRM.RTATAK.ATKPRM 


LENGTH: 


N 


; 


COMMON/SPEEDS/ 

CONTENTS:  SPEEDS  contains  the  speed  for  aerial  sections  with  specified 

weapon  codes  performing  independent  movement  of  a given 
type. 

ARRANGEMENT:  SPEEDS(I,J)  (real,  meters/second) 
where 

s 

1 for  enroute  movement 

2 for  loiter 

* ] 3 for  target  attack 

4 for  target  search,  and 

s. 

J = 1 N aerial  section  weapon  codes  (see 

COMMON/A  NGLIM/). 

INITIALIZATION:  Required 

USERS:  SECPRM 

LENGTH: 4 * N 

COMMON/S  PH  AS/ 

CONTENTS:  SPHAS  contains  the  slope  of  the  phase  lines  at  the  points 

specified  in  common  areas  XPI1AS  and  YPHAS.  (Note: 

To  guard  against  machine  overflow,  underflow  or  divide 
checks,  SPHAS  should  be  between  t .001  and  t 1000.) 

ARRANGEMENT:  SPHAS  is  a two-dimensional  array 
where 

SPHAS(I,J)  contains  the  slope  of  the  I^1  phase  line 

for  the  jth  maneuver  unit  (real,  meters) 

where  I = 1,2 NMP11AS  (see  COMMON/NPHAS/) 

j = 1,2 N,  where  N is  the  number  of 

maneuver  units. 

INITIALIZATION:  Required  if  phase  lines  are  used. 

USERS:  MVCON 


LENGTH:  NMPHAS*N 
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COMMON/SPINC/ 


CONTENTS:  SPINC  contains  the  time  between  launches  desired  for  in- 
direct-fire MISTIC  attacks  from  launchers  belonging  to 

units  with  specified  MISTIC  weapon  codes. 

ARRANGEMENT:  SPINC(I)  (real,  seconds) 

where 

I = I, . . . .MWMIS-MWART  MISTIC  unit  weapon  codes. 
INITIALIZATION:  Required 
USERS:  MFB 

LENGTH:  MWMIS-MWART 


COMMON/SRPTS/ 

CONTENTS:  SRPTS  contains  slant  ranges  to  the  target  in  meters. 

ARRANGEMENT:  SRPTS  is  a one-dimensional  array. 

SRPTS(I) , 

I = 1,  N 

where  SRPTS(I)  is  the  slant  range  at  distance  point  I, 
SRPTS(l)  = 0.0, 

SRPTS(N)  = the  maximum  slant  range  (meters)  at 
which  beam  acquisition  can  occur,  and 


N = number  of  distance  points. 
INITIALIZATION:  Required 
USERS:  FINAL 

LENGTH:  N 
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COMMON/SSR/ 


CONTENTS:  SSR  contains  the  standard  deviation  of  time  distribution 

whose  mean  is  TBSR. 

ARRANGEMENT:  SSR(I)  (real,  seconds) 

where 

I = 1 , . . . , MWMIS-MWART  MISTIC  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  LAUNCH 

LENGTH:  MWMIS-MWART 

COMMON/STNEUT/ 

CONTENTS:  STNEUT  contains  the  neutralization  time  affecting  battery 

I when  incoming  projectiles  are  within  a given  distance  of 

the  battery  (see  COMMON/CBNEUT/). 

ARRANGEMENT:  STNEUT(I)  contains  the  neutralization  time  for  battery  I 
(real,  seconds) 

for  1 = 1,  ....  N 

where 

N is  the  total  number  of  firing  batteries. 
INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  ARLETH 

LENGTH:  N 
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COMMON/STRMIS/ 


CONTENTS:  STRMIS  contains  the  time  required  for  a firer  to  communi- 

cate a verification  request  over  a given  radio  net. 

ARRANGEMENT:  STRMIS(I)  (real,  seconds) 

where 

I = 1 , . . . , NTFRNT  fire  request  nets . 
INITIALIZATION:  Required 
USERS:  MFB 

LENGTH:  NTFRNT 


COMMON/STRTIM/ 


CONTENTS:  STRTIM  contains  the  time  at  which  firing  data  will  become 

available  for  each  lire  request  on  each  radio  net  s lire 
request  list. 

ARRANGEMENT:  STRTIM  is  a two-dimensional  array: 

STRTIM(I.J)  (real,  seconds) 

I = l 5 position  on  FRL 

J = I,...  .NTFRNT  fire  request  net 

where  NTFRNT  is  the  total  number  of  fire  request  nets 


INITIALIZATION:  None 


USERS: 


AFASGN , AFB,  AFDC  , AFO,  AFSC,  AIREB,  BTLETH, 
DATATM,  FSCMON , LAUNCH,  MFB,  WRTFRL 


LENGTH: 


5 * NTFRNT 


COMMON/STRTMS/ 


CONTENTS:  STRTMS  contains  the  time  at  which  an  artillery  firing 

battery's  present  fire  mission  began. 

ARRANGEMENT:  STRTMS  is  a one-dimensional  array. 


STRTMS(I)  (real,  seconds) 

STRTMS (I)  contains  the  time  for  the  I^1  battery 
for  I = 1, .... N 

where  N is  the  number  of  batteries. 


INITIALIZATION:  Zero 
USERS:  AFB 

LENGTH:  N 


COMMON/TARAS  P/ 

CONTENTS:  TARASP  contains  aspect  angle  intervals  for  interpolation  of 

hit  and  kill  probabilities. 

ARRANGEMENT:  TARASP  contains  two  sets  of  data  as  follows: 

1.  NA  - the  number  of  values  in  the  array  ASP 
(integer) 


2.  ASP(I)  where  I 1 NA  contains  aspect 

angle  intervals  such  that  ASP(I)  < ASP(I  + 1) 
(real,  radians). 

INITIALIZATION:  Required. 

USERS:  SPDASP 


LENGTH:  NA  + 1 
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COMMON/TARSPD/ 


CONTENTS:  TARSPD  contains  target  speed  intervals  for  interpolation 

cf  hit  and  kill  probabilities. 

ARRANGEMENT:  TARSPD  contains  two  sets  of  data  as  follows: 

1.  NS  - the  number  of  values  in  the  array  SPD 

2.  SPD(I)  where  I = 1, ...  ,NS  contains  speed  in- 

tervals such  that  SPD(I)  < SPD(I  + 1) 

(real,  meters/sec.) 

Note:  SPD (1) should  be  initialized  to  zero. 
INITIALIZATION:  Required. 

USERS:  SPDASP 

LENGTH:  NS  + 1 

COMMON/TBFR/ 

CONTENTS:  TBFR  contains  the  mean  of  the  distribution  of  times  re- 

quired for  a launcher  belonging  to  a unit  with  a given 
MISTIC  weapon  code  to  set  up  to  fire  a first  round. 

ARRANGEMENT:  TBFR (I)  (real,  seconds) 

where 

I = 1 .... , MWMIS-MWART  MISTIC  unit  weapon  codes . 
INITIALIZATION:  Required 
USERS:  MFB,  LAUNCH 

LENGTH:  MWMIS-MWART 
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COMMON/TBL/ 


CONTENTS:  TBL  contains  the  mean  of  distribution  of  times  required  to 

complete  one  loading  operation  on  a launcher  belonging  to 
a unit  with  a specified  MISTIC  weapon  code. 

ARRANGEMENT:  TBL(I)  (real,  seconds) 

where 

I = 1,. . ..MWMIS-MWART  MISTIC  unit  weapon  codes . 

INITIALIZATION:  Required 

USERS:  LOADM,  LAUNCH 

LENGTH:  MWMIS-MWART 

COMMON/TBSR/ 

CONTENTS:  TBSR  contains  the  mean  of  the  distribution  of  times  re- 

quired for  a launcher  belonging  to  a unit  with  a given 
MISTIC  weapon  code  to  set  up  to  fire  second  and  subsequent 
rounds . 

ARRANGEMENT:  TBSR(I)  (real,  seconds) 

where 

I = 1 MWMIS-MWART  MISTIC  unit  weapon  codes . 


INITIALIZATION:  Required 
USERS:  LAUNCH 

LENGTH:  MWMIS-MWART 


COMMON/TC/ 


CONTENTS:  Common  TC  contains  the  Y -coordinate  of  both  red  and 

blue  force  strongpoints. 

ARRANGEMENT:  TC  is  a one -dimensional  array; 


TC(I) 

where 

I = 1 , . . . , NRSP  subscripts  for  the  red  strongpoints 

I = NRSP  + 1 NRSP  NBSP  subscripts  for  the  blue 

strongpoints 

where  NRSP  is  the  number  of  red  strongpoints  and  NBSP 
is  the  number  of  blue  strongpoints,  user  supplied  storage 
para  meters. 

INITIALIZATION:  Required 

USERS:  CSRTSL 

LENGTH:  NRSP  + NBSP 


COMMON/TC  RIT/ 

CONTENTS:  TCRIT  contains  the  minimum  time  remaining  for  a helicopter 

of  specified  weapon  code.  The  values  are  used  to  determine 
when  a helicopter  is  to  be  considered  a casualty. 

ARRANGEMENT:  TCRIT  is  a one-dimensional  array. 

TCRIT(I)  (real,  seconds) 

where 

I = 1 N helicopter  weapon  codes  (see 

COMMON/ANGLIM/  for  a definition  of 
weapon  code) . 

INITIALIZATION:  Required 

USERS:  GET  HE  L 

LENGTH:  N 
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COMMON/TDFRDY/ 


CONTENTS:  TDFRDY  contains  the  battle  time  at  which  a given  launcher 

achieved  the  direct-fire  activity  state  specified  by  his  entry 
in  the  array  LFLAG. 

ARRANGEMENT:  TDFRDY (I)  (real,  seconds) 

where 

I = 1, . . . ,ITOTLN  launcher  numbers. 

INITIALIZATION:  None 

USERS:  MFB.LOADM,  LAUNCH,  ATKPRM 


LENGTH:  ITOTLN 


COMMON/TDUD/ 

CONTENTS:  TDUD  contains  the  time  required  for  a launcher  belonging 

to  a unit  with  a given  MISTIC  weapon  code  to  react  to  a 
missile  misfire. 

ARRANGEMENT:  TDUD(I)  (real,  seconds) 

where 

I = 1 .... , MWMIS-MWART  MISTIC  unit  weapon  codes . 

INITIALIZATION:  Required 


USERS: 


MFB,  LAUNCH 


LENGTH:  MWMIS-MWART 


A- 1 7:1 


CONTENTS: 

ARRANGEMENT: 


COMMON/TEC/ 

Common  TEC  contains  the  effective  range  for  a given  enemy 
strongpoint  weapon  type  against  a dismounted  CSW  unit. 

TEC  is  a one-dimensional  array: 

TEC (I)  (real,  meters) 


where  I = 1, . . . , Z + NRWP  + NBWP 


and  0<  TEC(l)  < TEC(2)... 

NRWP,  NBWP  are  defined  in  Common  SPTS  as 

NRWP  = number  of  red  weapon  types 
NBWP  = number  of  blue  weapon  types. 

INITIALIZATION:  Required 

USERS:  CSRTSL 

LENGTH:  NRWP  + NBWP  + 2 


COMMON/TEW/ 

CONTENTS:  Common  TEW  contains  the  effective  range  for  a weapon 

with  a specified  weapon  code. 

ARRANGEMENT:  TEW  is  a one -dimensional  array: 

TEW  (I) 

I = 1 , . . . , MNFRT  weapon  code 

f where  MNFRT  is  the  total  number  of  element  weapon 

codes . 

INITIALIZATION:  Required 

USERS:  CSRTSL 


LENGTH: 


MNFRT 
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COMMON/TF/ 


CONTENTS:  TF  contains  the  nominal  value  of  flight  time  from  launch 

corresponding  to  a distance  RM  (given  in  COMMON/RM). 

ARRANGEMENT:  RF(I)  (real,  seconds) 

I = 1,  N 

where  N = number  of  distance  points  and 
TF(1)  =0.0 

INITIALIZATION:  Required 
USERS:  FLIGHT 

LENGTH:  N 

COMMON/TFDCKL/ 

CONTENTS:  TFDCKL  contains  the  time  at  which  a neutralized  fire 

direction  center  will  again  become  active,  as  a result  of 
counterbattery  fire. 

ARRANGEMENT:  TFDCKL  is  a one-dimensional  array. 

TFDCKL(I)  (real,  seconds) 

where 

/ 

0 fire  direction  center  I is  not 
neutralized 

TFDCKL(I)  = ‘ q-  time  at  which  the  direction 
center  may  become  active 

s. 

for  I = 1 , . . . , N where  N is  the  maximum  number  of 
artillery  fire  direction  centers. 

INITIALIZATION:  None 

USERS:  AFDC , BTLETH 

LENGTH:  N 
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COMMON/TFLY 


CONTENTS:  TFLY  contains  the  computed  time  required  to  prepare  a 

point -fire  weapon  for  launch  from  a given  helicopter  or 
the  computed  time  of  flight  of  a beam-rider  missile 
launched  from  a given  helicopter. 

ARRANGEMENT:  TFLY (I)  (real,  seconds) 

where 

I = 1 , . . . , N helicopter  numbers . 

INITIALIZATION:  None 

USERS:  TFCOMP.ATKPRM.RTATAK 

LENGTH:  N 


COMMON/TH  BM/ 

CONTENTS:  THBM  contains  the  mean  time  required  to  launch  a direct- 

fire  missile  of  a given  type  from  a helicopter  having  a 
given  aerial  weapon  code. 


ARRANGEMENT: 


THBM(I.J) 

where 


I = 


(real,  seconds) 

1 for  a MISTIC  missile 

2 fora  beam-rider  missile,  and 


J = 

1 NA3 , where  NA3  is  the  maximum 

number  of  weapon  codes  assigned  to 
aerial  vehicle  elements.  Note  that 
weapon  codes  assigned  in  COMMON 
/LWCOD/  are  numbered  1, . . . , MAXLWC 
for  ground  elements  and  from 
MAXLWC  + 1 , . . . , MAXWC  for  aerial 
vehicle  elements.  Thus, 

NA3  = MAXWC  - MAXLWC. 

INITIA  LIZATION: 

Required 

USERS; 

TFCOMP 

LENGTH: 

2 * NA3 
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COMMON/TIFRDY/ 


CONTENTS:  TIFRDY  contains  the  battle  time  at  which  a given  launcher 

achieved  the  indirect-fire  activity  state  specified  by  his 
entry  in  the  array  IFRFL. 

ARRANGEMENT:  TIFRDY(I)  (real,  seconds) 

where 

| I = 1 ITOTLN  launcher  numbers . 

INITIALIZATION:  None 

USERS:  MFB.LOADM,  LAUNCH 

LENGTH:  ITOTLN 


COMMON/TIMBE/ 

CONTENTS:  TIMBE  contains  the  minimum  time  between  fire  missions 

for  artillery  firing  batteries . 

ARRANGEMENT:  TIMBE  is  a one-dimensional  array. 

TIMBE(I)  (real,  seconds) 

TIMBE (I)  contains  the  lime  for  the  I**1  battery 
for  I - 1 N 

where  N is  the  number  of  batteries. 

INITIALIZATION:  Required,  not  altered  during  execution. 

USERS:  AFB  — 

LENGTH:  N 
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COMMON/TINIT/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


TINIT  contains  times  at  which  messages  are  transmitted 
or  times  at  which  targets  are  selected. 

TINIT  is  a one -dimensional  array  (real,  seconds). 


TINIT(I)  = < 


time  at  which  an  FO  selects  a target  or 
time  at  which  an  FO  transmits  a fire 
adjustment  message  if  I ^ ITOTFO 
time  at  which  an  aerial  unit  requests 
mission  confirmation  if  I > ITOTFO. 


None 

AIRFB.AFO,  FSCMON.REVAL.AFSC 
ITOTFO  + NUMAVT 


COMMON/TLOAD/ 

TLOAD  contains  the  computed  time  required  to  perform  the 
next  loading  operation  aboard  each  launcher  (negative  if  not 
computed  previously). 

TLOAD(I)  (real,  seconds) 

where 

I = 1 .... , ITOTLN  launcher  numbers . 

Initialized  at  -2. 

LOADM,  LAUNCH 


LENGTH: 


ITOTLN 


COMMON/TMISUN/ 

CONTENTS:  TMISUN  contains  the  time  at  which  each  aerial  unit  enters 

aHs  mission  operations  area. 

ARRANGEMENT:  TMISUN(I)  (real,  seconds) 

where 

I = 1,2 NUMAVT  aerial  unit  numbers. 

INITIALIZATION:  None 

USERS:  MISEND,HELFIR,CBCONT 

LENGTH:  NUMAVT 

COMMON/TMNTI)/ 

Common  TMNTD  contains  the  time  at  which  the  dis- 
mounted crews  of  a specified  A PC  will  have  returned 
from  their  firing  position  and  be  ready  to  remount. 

TMNTD(I)  (real,  seconds) 

I = 1 NAPCMX  A PC  numbe  r 

where  NAPCMX  is  the  maximum  number  of  APC's  in 
the  battle. 

Zero,  altered  during  execution 
CSWCAS , CSWCON,  MOUNT 
NAPCMX 
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CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


COMMON/TNEUTM/ 


CONTENTS: 


ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


TNEUTM  contains  neutralization  times  for  various  weapon 
types  as  a result  of  artillery  volleys  or  impacting  missiles 
which  did  not  have  guidance  to  the  target  on  impace. 

TNEUTM(I.J)  contains  the  neutralization  time  interval 
for  the  J^1  weapon  system  type  by  the  I^h  artillery  battery 

I = 1,...,  NUMART 

J = 1 N where  NUMART  is  the  numlx:r  of  artillery 

firing  batteries  and  N is  the  maximum  weapon  system  code 
value  specified  in  COMMON/LWSYS/. 

Required,  not  altered  during  execution. 

ARLETII , FLIGHT 

NUMART  * N 


SCENARIO  DEPENDENT 

Routines  using  Common  TNEUTM  may  need  to  be  recompiled  to  obtain  the 
desired  maximum  value  for  subscript  I. 

COMMON/TPMKH/ 

CONTENTS:  TPMKH  contains  kill  probabilities  for  nontank  type  targets. 

ARRANGEMENT:  TPMKH(I,J,K)  (integer) 
where 

I = l 6 subscripts  corresponding  to  range  in- 

tervals as  defined  inCOMMON/HPRNG/ 

J = 1 5 subscripts  corresponding  to  kill  types 

(e.g. , 0 , • • • , 4) 

K = 1 N subscripts  corresponding  to  firer-ammo- 

target  combinations  not  including  tank- 
target  combinations  (e.g.,  KC11AR- 
MTNKLT  where  KCIIAR  is  the  fourth 
variable  in  COMMON/1AMMO/  and 
MTNKLT  is  from  COMMON/MAXWEP/. 


INTTIAI JZATION:  Required. 

USERS:  TLETII 

LENGTH:  6*5- N 
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COMMON/TRET/ 


CONTENTS:  TRET  contains  the  time  at  which  each  helicopter  element 

will  become  a casualty. 

ARRANGEMENT:  TRET  is  a one -dimensional  array. 

TRET (I)  (real,  seconds) 

where 

I = 1 N helicopter  element  numbers. 

INITIALIZATION:  Each  entry  should  be  initialized  with  a large  value. 
USERS:  GET  HE  L.CASUE  L 


LENGTH:  N 


COMMON/TRNET/ 

CONTENTS: 

TRNET  contains  the  battle  time  after  which  a net  will  be 
available  for  message  transmissions. 

ARRANGEMENT: 

TRNET  is  a one-dimensional  array: 

TRNET(I)  (real,  seconds) 

I = 1, . . . , NP  LT  platoon  net  subscripts 

I = NPLT  + 1 NBTEM  blue  company  net  subscripts 

I = NPLT  + NBTEM  + 1 NPLT  ' NT  EM  red  company 

net  subscripts 

I = NPLT  *■  NT E M t-  l blue  battalion  net  subscripts 
I = NPLT  + NTEM  + 2 red  battalion  net  subscripts 
where 

NPLT  - the  number  of  platoons 
NBTEM  the  number  of  blue  teams 

NTEM  = total  number  of  teams 

INITIALIZATION: 

Initialized  to  large  negative  value. 

USERS: 

SEND,  SENIX’ 

LENGTH: 

NPLT  + NTEM  ' 2 
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COMMON/TVMIS/ 


CONTENTS:  TVMIS  contains  data  used  in  the  television  guided  missile 

model . 

ARRANGEMENT:  TVMIS  contains  ten  values: 


1.  DT 


2.  ANGA 


3.  ANGB 


4.  GAMM 


= visual  fixation  time  for  the  remote  flier  (real, 
seconds) 

= angle  between  horizontal  and  the  rear  limit  of 
the  camera's  field  of  view  (real,  radians) 

= angle  between  horizontal  and  the  front  limit  of 
the  camera's  field  of  view  (real,  radians) 

= angle  between  vertical  and  the  side  limits  of  the 
camera's  field  of  view  (real,  radians) 


5.  SDANG  = standard  deviation  of  flier's  estimate  of  target 

heading  (real , radians) 


6.  CSDV 


7.  LAQ 


8.  LDET 


= constant  associated  with  standard  deviation  of 
flier's  estimate  of  target  velocity  (real) 

= flag  to  indicate  whether  target  acquisition  by  the 
flier  has  occurred  (integer) 


LAQ  = 


1 ~ target  has  been  acquired  by  flier 


0 ~ otherwise 


= flag  to  indicate  whether  target  was  seen  by  the 
flier  during  his  last  fixation  (integer) 


LDET  = 


1 ~ target  was  seen  during  last  fixation 


0 ~ otherwise 


9.  TLOS  = cumulative  time  during  which  the  target  has  been 

seen  by  the  flier  (real , seconds) 

10.  TLOST  - cumulative  time  since  target  was  last  seen  by 

the  flier  (real,  seconds) 

INITIALIZATION:  DT,  ANGA,  ANGB,  GAMM,  SDANG,  and  CSDV  must  be 
supplied  as  input.  No  initialization  required  for  others. 

I IS  E RS : KINA  LE  , POSEST , TV  DET 


LENGTH: 


10 


COMMON/TVOPT/ 


CONTENTS:  TVOPT  contains  data  concerning  the  tactic  employed  for  the 

E-O  missile  system  in  the  post  lock-on  mode. 


ARRANGEMENT: 


Single  value. 

LTVOPT  = flag  indicating  post  lock-on  mode  for  E-O 
missile 

f 1 for  human  supervision 


LTVOPT  = 


0 for  electronic  guidance 


INITIALIZATION:  Required 
USERS:  TVDET , FINALE 


LENGTH:  1 


COMMON/TYPMIS/ 


CONTENTS:  TYPMIS  contains  a flag  to  designate  the  type  of  flight 

path  and  search  pattern  of  a missile  from  a specified 
launcher . 


ARRANGEMENT: 


TYPMIS  is  a one -dimensional  array:  (Integer) 


TYPMIS(I)  = 


Is.  4 3 if  a lovol  llight  missile 
K > 3 if  ballistic  flight  missile 
K which  is  odd  if  a M1STIC  missile 
K which  is  even  if  an  E-O  missile 
2 4 K < 5 if  seeker  is  fixed  to  the  missile 
K > 4 if  seeker  is  stabilized  to  launch 
angle  orientation 


1 1 , l’P<  )T  I ,N , whe  re  IT<  >T  LN  is  the  lota  1 

number  of  launchers,  a user-supplied  storage 
dimension  parameter. 

INTTIA  I JZATION:  Required 

USERS:  HE  LITE  , E LIGHT  , \ AUNCH  . SEEKER 

LENGTH:  ITOTLN  
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COMMON/UADJ/ 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


UADJ  contains  the  mean  time  required  to  adjust  firing 
data  after  receipt  of  an  adjustment  message  over  each 
radio  net  (see  COMMON/SIGADJ/) . 

UADJ  is  a one -dimensional  array: 

UADJ (I)  (real,  seconds) 

I = 1 , . . . , NTFRNT  fire  request  net 

where  NTFRNT  is  the  total  number  of  fire  request  nets. 

Required  _ _ _ 

A FDC 

NTFRNT 


COMMON/UAL/ 

UAL  contains  the  mean  time  for  an  artillery  firing 
battery  of  specified  weapon  code  to  load,  lay,  and  fire 
the  initial  volley  of  a fire  mission  (see  COMMON/SIGAL/) . 

UAL  is  a one -dimensional  array: 

UAL(I)  (real,  seconds) 

UAL(I)  contains  the  time  for  the  Ith  fire  support  weapon 
code 

I = 1 MWART 

where  MWART  is  the  maximum  artillery  unit  weapon  code. 

Required,  not  altered  during  execution. 

AFB 

MWART  • 4 
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COMMON/UFFK/ 


r 


UFFE  contains  the  mean  time  for  an  artillery  battery  of 
specified  weapon  code  to  load,  lay,  and  fire  subsequent 
rounds  of  a fire-for-effect  mission  (see  COMMON 
/SIGFFE/. ) 

UFFE  is  a one -dimensional  array: 

UFFE(I)  (real,  seconds) 

UFFE (I)  contains  the  time  for  the  I1*1  fire  support 
weapon  code 

I 1 MW  A RT 

where  MWART  is  the  maximum  artillery  unit  weapon 
code. 

Required,  not  altered  during  execution. 

AFB 

MWART 


COMMON/UONP/ 

CONTENTS:  UONP  contains  the  mean  time  required  to  process  the 

original  fire  request  for  an  on-call  target  over  each 
radio  net  (see  COMMON/SIGONP/) . 

ARRANGEMENT:  UONP  is  a one -dimensional  array: 

UONP(I)  (real,  seconds) 

I = 1, . . . , NTFRNT  fire  request  net 


CONTENTS: 


ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LE  NGTH : 


COMMON/UPLT  / 

CONTENTS:  UPLT  contains  the  mean  time  required  to  process  an 

original  fire  request  against  a target  of  oppurtunity 
over  each  radio  net. 

ARRANGEMENT:  UPLT  is  a one -dimensional  array: 

UPLT(I)  (real,  seconds) 

I = 1 NT FR NT  fire  request  net 

where  NTFRNT  is  the  total  number  of  fire  request  nets. 


INITIALIZATION:  Required 

USERS:  AFDC 

LENGTH:  NTFRNT 


i 
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COMMON/UPRBRA/ 

CONTENTS:  U PR  BRA  stores  an  array  containing  the  means  of  the  priority 

distribution  whose  standard  deviations  are  stored  in 
COMMON/SIGPBR/. 


I = < 


ARRANGEMENT:  UPRBRA(I.J)  (real) 
where 

C 

1 regular  FO  Bravo 

2 special  FO  Bravo 

j = 1 , . . . , MWART  fire  support  weapon  code , 

INITIALIZATION:  Required 
USERS:  AFO 


LENGTH: 


2 * MWART 


COMMON/URNBRA/ 

CONTENTS:  URNBRA  stores  an  array  containing  the  means  of  the  distri- 

butions of  rounds  requested,  whose  standard  deviations  are 
stored  in  COMMON/SIGRBR/. 

ARRANGEMENT:  URNBRA(I.J)  (real) 
where 

r 

1 regular  FO  Bravo 

2 special  FO  Bravo 

J=  1, . . . ,MWART  fire  support  weapon  code. 

INITIALIZATION:  Required 

USERS:  AFO 

LENGTH:  2 * MWART 


I = 


COMMON/USEN/ 

CONTENTS:  USEN  contains  the  mean  of  the  distribution  of  times  re- 

quired by  an  FO  communicating  over  radio  net  I to  verify 
a target  for  a firer. 

ARRANGEMENT:  USEN(I)  (real,  seconds) 

where 

I = 1 NTFRNT. 

INITIALIZATION:  Required 

USERS:  MFB.AIRFB 

LENGTH:  NTFRNT 


A-187 


COMMON/VEHSPD/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


VEHSPD  contains  firer  speed  intervals  for  interpolation  of 
hit  and  kill  probabilities. 

VEHSPD  contains  two  sets  of  data  as  follows: 

1.  NV  - the  number  of  values  in  the  array  SPD 

2.  SPD(I)  where  I = 1 NS  contains  speed 

intervals  such  that  SPD(I)  < SPD(I+  1) 

Note:  SPD(l)  should  be  initialized  to  zero. 

Required. 

SPDASP 
NV  + 1 


COMMON/VM/ 

VM  contains  the  velocity  of  a missile  in  meters/seeond 
(average  velocity  if  level  flight,  initial  velocity  if 
ballistic  flight). 

VM  is  a one -dimensional  array: 

VM  (ILNNUM)  ILNNUM  1 ITOTLN 

where  ITOTLN  total  number  of  launchers. 

Required 
BFLITE  , FINAL 


LENGTH: 


ITOTLN 


COMMON/VULRAD/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


VULRAD  contains  an  array  specifying  the  vulnerability  radius 
of  a given  weapon  type  to  a single  artillery  round  from  a 
specified  firing  battery. 

VULRAD  is  a two-dimensional  array. 

VULRAD(I.J)  (real,  meters) 

where 

I = 1,...,8  artillery  battery  number,  and 

J = 1 , . . . , N target  element  weapon  code . 

Required 

ARLETH 

8 * N 


COMMON/WAITAD/ 

WAITAD  contains  the  maximum  time  that  a fire-support 
element  with  a given  weapon  code  will  wait  for  mission 
confirmation  or  adjustment. 

WAITAD(I)  (real,  seconds) 

where 

I = 1 , . . . , MWAIR  fire  support  weapon  codes . 
Required 
AIRFB.MFB 


LENGTH: 


MWAIR 
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COMMON/WFUEL/ 

CONTENTS:  WFUEL  contains  the  fuel  load  remaining  for  each  element 

in  a given  aerial  vehicle  section. 

ARRANGEMENT:  WFUEL(I)  (real,  pounds) 
where 

I = 1 N aerial  section  numbers. 

INITIALIZATION:  Required 

USE  RS : SE  CSET , IIE I ,MOV , FUE  LD , RE  TIRE 

LENGTH:  N 

COMMON/WPAT/ 

CONTENTS:  WPAT  stores  an  array  containing  the  priority  weight  factor 

for  fire  pattern  J used  by  artillery  weapon  code  K. 

ARRANGEMENT:  WPAT(J.K)  (real) 

where 

J = 1 , . . . , 5 fire  pattern  number 

K = 1 , . . . , MWART  artillery  weapon  code 

INITIALIZATION:  Required 

USERS:  SELECA 


LENGTH: 


5 * MWART 


COMMON/WPHAS/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


WPHAS  contains  the  width  of  a phase  line  zone,  within  which 
a maneuver  unit  is  considered  as  crossing  the  phase  line 
(for  a west  to  east  attack,  WPHAS  is  positive  and  for  an 
east  to  west  attack,  WPHAS  is  negative). 

WPHAS  is  a two-dimensional  array 

where 

WPHAS(I.J)  = the  width  of  the  I1*1  phase  line  for  the 
jth 

maneuver  unit  (real,  meters) 

for  I = 

J = 1 , . . . , N where  N is  the  total  number  of  maneu- 
ver units. 

Required  for  all  phase  lines  included. 

MVCON 

4*N 


COMMON/WT/ 

WT  contains  the  time  required  to  prepare  a MISTIC  missile 
for  launch  from  a launcher  belonging  to  a unit  with  a given 
MISTIC  weapon  code. 

WT(I)  (real,  seconds) 

where 

I = 1, . . . ,MWMIS-MWART  MISTIC  unit  weapon  codes . 
Required 
MFB,  LAUNCH 


LENGTH: 


MWME3-MWART 


COMMONACONC/ 


CONTENTS:  XCONC  stores  an  array  containing  the  X -coordinates  of 

the  center  of  each  concentration  area. 

ARRANGEMENT:  XCONC(I)  (real,  meters) 

where 

I = 1, . . . , 20  concentration  number. 
INITIALIZATION:  Required 


USERS: 


AFO.FSCHEK 


LENGTH: 


COMMON/XCSWIN/ 


CONTENTS: 


Common  XCSWIN  contains  the  value  of  the  grade  angle 
for  the  Kth  point  from  which  the  corresponding  limiting 
speed  for  dismounted  CSW  units  is  computed. 


ARRANGEMENT: 


XCSWIN  is  a one -dimensional  array: 


XCSWIN(I) 

I - 1, . ..  .INCMAX,  where  INC  MAX  is  the  number  of 
points  used. 


INITIALIZATION:  Required 


USERS: 


CSTIME 


LENGTH: 


INCMAX 
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COMMON/XDF/ 


i 


CONTENTS:  Common  XDF  contains  the  X-coordinate  of  the  primary 

desired  firing  position  for  a CSW  unit. 

ARRANGEMENT:  XDF  is  a one -dimensional  array: 

XDF(I) 

I = 1 NCSWMX  CSW  unit 

where  NCSWMX  is  the  maximum  numlxT  of  CSW 
units  in  the  battle. 

INITIALIZATION:  None 

USERS:  CSWCON,  CSWGRD 

LENGTH:  NCSWMX 


COM  MO  N/X  D FA  / 

CONTENTS:  Common  XDFA  eontains  the  X-coordinate  of  the  alternate 

desired  firing  position  for  a CSW  unit. 

ARRANGEMENT:  XDFA  is  a one -dimensional  array: 

XDFA(I) 

I = 1 NCSWMX  CSW  unit 

where  NCSWMX  is  the  maximum  number  of  CSW  units 
in  the  battle. 

INITIALIZATION:  None 

USERS:  CSWCON,  CSWGRD 


LE  NGTII: 


NCSWMX 


r 


I 


COMMON/XFAC/ 

CONTENTS:  XFAC  contains  the  X dimension  of  the  proportionality  con- 

stant used  in  computing  individual  weapon  aim  points  for  an 
artillery  firing  battery  firing  a given  firing  pattern. 

ARRANGEMENT:  XFAC  is  a two-dimensional  array. 

XFAC(I,  J)  (real) 

where 

XFAC  (I,  J)  contains  the  constant  for  the  Ith  pattern 
of  the  Jth  artillery  weapon  code 

for  I 1| . . . f 5 

J = 1, . ..  ,N  where  N is  the  maximum  artillery 

weapon  code. 

INITIALIZATION:  Required 
USERS:  ARLETH 

LENGTH:  5*N 


COMMON/XFB/ 

CONTENTS:  XFB  stores  an  array  containing  the  centroid  X-coordinate 

of  each  artillery  firing  battery  and  MISTIC  launcher  unit. 

ARRANGEMENT:  XFB(I)  (real,  meters) 

where 

I = 1 NUMART,  NUMART+1 , . . . , NUMART+MISTUN 

— v"  — 1 ' v t 

artillery  firing  MISTIC  launcher  units 

batteries 

INITIALIZATION:  Required 

USERS:  AVAIL.SE  LECA  ,FSCIIEK  ,AFSC  .CBCONT 

LENGTH:  NUMART+MISTUN 


* 


L 
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COMMON/ XLOC/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 
USE  US; 


XLOC  contains  the  X dimension  of  the  offset  of  each  weapon 
in  an  artillery  firing  battery  from  the  center  of  the  battery. 

XLOC  is  a two-dimensional  array. 

XLOC(I,J)  (real,  meters) 

where 

XLOC  (I,  J)  contains  the  location  of  the  I**1  weapon 
for  the  Jth  artillery  weapon  code 

for  I = I, ...  ,6 

J = 1, ....  N where  N is  the  maximum  number  of 

artillery  weapon  codes. 

Required 

ARLETH 

6*N 


COMMON  A L5TAS/ 


XI.STAS  contains  the  length  of  the  side  of  a loiter  station 
of  a specified  type  occupied  by  an  aerial  section  with  a 
given  aerial  weapon  code. 


XLSTAS(I, J)  (real,  meters) 


where 


I 


1 indicates  section  is  waiting  for  fire  support 

2 indicates  section  is  waiting  at  retirement 
s position 

3 indicates  section  is  waiting  at  defensive 
position,  and 


<T  - 1,...,N  aerial  weapon  codes  (see 
CO  MMON/A  NG  LI  M/) . 


Required 


UTLOIT 


LENGTH: 


3 * N 


COMMON/XLSTAU/ 

CONTENTS:  XLSTAU  contains  the  length  of  the  side  of  a loiter  station  of 

a given  type  occupied  by  an  aerial  unit  with  a specified 
weapon  code. 

ARRANGEMENT:  XLSTAU(I.J)  (real,  meters) 
where 

/■ 

1 indicates  unit  is  awaiting  a mission 

2 indicates  unit  is  waiting  at  retirement 
position 

I = < 3 indicates  unit  is  waiting  at  defensive 

position 

4 indicates  unit  is  loitering  as  an  indirect- 
fire  support  unit,  and 

J = 1 , . . . , MWAIR-MWMIS  aerial  unit  weapon  codes. 
INITIALIZATION:  Required 


USERS: 


RTLOIT 


LENGTH: 


4 * (MWAIR-MWMIS) 


COMMON/XPHAS/ 


CONTENTS: 


XPHAS  contains  the  X coordinate  of  a point  on  the  phase 
line  which  is  near  the  intersection  of  the  phase  line  and 
each  axis  of  advance. 


ARRANGEMENT:  XPHAS  is  a two-dimensional  array: 

XPHAS(I, J)  contains  the  coordinate  of  the  Ith  phase 
line  for  the  Jth  maneuver  unit  (real,  meters) 

where 

I = 1, . . . , NMPHAS  total  number  of  phase  lines 

represented 

J = 1 MNMNU  number  of  maneuver  units 

INITIALIZATION:  Required  if  phase  lines  are  used 


USERS: 


MVCON 


LENGTH: 


NMPHAS  * MNMNU 
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COMMON/XS/ 


CONTENTS:  XS  contains  X coordinates  of  the  current  objective  of  each 

aerial  section. 

ARRANGEMENT:  XS  is  a one -dimensional  array. 

XS(I)  (real,  meters) 

where 

I = 1, . . . , N and  N is  the  maximum  number  of  aerial 
sections . 

INITIALIZATION:  None 

USERS;  RTCROS.HELCON 

LENGTH:  N 

COMMON/XS  A VI-7 

CONTENTS:  XSAVE  contains  the  X coordinates  computed  for  an  aerial 

section  attack  route. 

ARRANGEMENT:  XSAVE(I,J)  (real,  meters) 
where 

I = 1 , . . . , 8 attack  route  points , and 

J = 1,...,N  aerial  section  numbers. 

INITIALIZATION:  None 

USERS:  RTATAK 


LENGTH: 


8 * N 


COMMON/XTRIG/ 


■ 


CONTENTS:  XTRIG  stores  an  array  containing  the  X-coordinate  of  the 

center  of  each  trigger  area. 

ARRANGEMENT:  XTRIG(I)  (real,  meters) 

where 

I ~ 1 , . . . , 30  trigger  area  number. 

INITIALIZATION:  Required 
USERS:  TRIG 

LENGTH:  30 


COMMON/YCSWIN/ 

Common  YCSWIN  contains  the  value  of  the  limiting  speed 
for  u CSW  unit  for  a given  weapon  code  and  gnide  angle. 

YCSWIN(I.J) 

I = 1 INCMAX 

J = NCW MAX  CSW  weapon  code 

where  INCMAX  is  the  number  of  points  used  in 
Common  XCSWIN  and  NCWMAX  is  the  maximum 
number  of  weapon  codes  for  crew  served  weapons. 

Required 

CSTIME 

INCMAX  * NCWMAX 

SCENARIO  DEPENDENT 

Routines  using  Common  YCSWIN  may  need  to  Ik'  recompiled  to  obtain  the  desired 
maximum  value  for  subscript  I. 
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CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


t rtt  • 


- 


A 


COM  MON/ YD  I'/ 


CONTENTS: 


Common  YDF  contains  the  Y -coordinate  of  the  primary 
desired  firing  position  for  a CSW  unit. 


ARRANGEMENT: 


YDF  is  a one -dimensional  array: 
YDF(I) 


INITIA  LIZATION: 


I 1 , . . . , NCSWMX  CSW  unit 

where  NCSWMX  is  the  maximum  number  of  CSW  units 
in  the  battle. 


USERS: 


CSWCON.  CSWGRD 


LENGTH: 


NCSWMX 


CONTENTS: 


ARRANGEMENT: 


COM  MON/ YD  FA  / 

Common  YDFA  contains  the  Y -coordinate  of  the  alternate 
desired  firing  position  for  a CSW  unit. 

YDFA  is  a one  -dimensional  array: 

YDFA  (I) 


INITIA  LIZATION: 


I - 1,...,  NCSWMX  CSW  unit 

where  NCSWMX  is  the  maximum  numlier  of  CSW 

units  in  the  battle. 


USERS: 


CSWCON,  CSWGRD 


NCSWMX 


A- 1!>!> 


COMMON/YFAC/ 


CONTENTS: 

YEAC  contains  the  Y dimension  of  the  proportionality 
constant  used  in  computing  individual  weapon  aim  points 
for  an  artillery  firing  battery  firing  a given  firing  pattern. 

ARRANGEMENT: 

YFAC  is  a two-dimensional  array: 

YFAC  (I,J)  (real) 
contains 

the  constant  for  the  Ith  pattern  of  the  Jth  artillery 

weapon  code 

for 

I = 1 , . . . , 5 

J - 1 N where  N is  the  maximum  artillery  weapon 

code 

INITIALIZATION: 

Required 

USERS: 

ARLETII 

LENGTH: 

5 * N 

common/  yfb/ 

CONTENTS: 

Y analogue  of  XFB 

COMMON/YLOC/ 


CONTENTS:  YLOC  contains  the  Y-dimension  ol'  the  offset  of  each 

weapon  in  an  artillery  firing  battery  from  the  center  of 
the  battery. 

ARRANGEMENT:  YLOC  is  a two-dimensional  array: 

YLOC(I,J)  (real,  meters)  contains  the  location  of  the 

ffh  weapon  for  the  J^1  artillery  weapon  code 

for  I = 

J = 1.....N 

where  N is  the  maximum  number  of  artillery  weapon 
codes . 

INITIA  LIZATION:  Requi  red 

USERS;  ARLETII,  HTLETI1 


LENGTH: 


(i  + N 


COMMON/YPHAS/ 


CONTENTS: 

ARRANGEMENT: 


INITIALIZATION: 

USERS: 

LENGTH: 


CONTENTS: 

CONTENTS: 

ARRANGEMENT: 

INITIALIZATION: 

USERS: 


YPHAS  contains  the  Y -coordinate  of  a point  on  the  phase 
line  which  is  near  the  intersection  of  the  phase  line  and 
each  axis  of  advance . 

YPHAS  is  a two-dimensional  array: 
where 

YPHAS(I.J)  contains  the  coordinate  of  the  I1*1  phase  line 

for  the  jtt*  maneuver  unit  (real,  meters) 

where 

I = 1 NMP1LAS , total  number  of  phase  lines 

represented 

J = 1 MNMNU , number  of  maneuver  units. 

Required  if  phase  lines  are  used 
MNCON 

NMP1LAS  * MNMNU 


COMMON/ YSAVE/ 
YSAVE  is  the  Y analog  of  XSAVE. 


COMMON/ZM/ 

ZM  contains  the  nominal  value  of  missile  altitude  at  a 
distance  RM  in  meters  (given  in  COMMON/llM) 

ZM(I)  (real,  meters) 

I = 1,  ••• , N 

where  N = number  of  distance  points  and 
ZM(1)  = 0.0 
Required 
FLIGHT 


LENGTH: 


N 


COMMON/ZMD/ 


CONTENTS: 

ARRANGEMENT: 


ZMD  contains  the  standard  deviation  in  altitude  at  a distance 
RM  (given  in  COMMON/RM) 

ZMD(I)  (real,  meters2) 

I = 1,  • • • , N 


where  N = number  of  distance  points  and 
ZMD(l)  =0.0 
INITIALIZATION:  Required 
USERS:  FLIGHT 

LENGTH:  N 


COMMON/ZRT/ 


CONTENTS:  ZRT  contains  the  Z-coordinates  of  the  movement  control 

points  for  the  lead  element  ol  each  aerial  unit  measured 
relative  to  the  zero  elevation  plane. 

ARRANGEMENT:  ZRT  is  a two-dimensional  array: 

ZRT(I,J)  (real,  meters) 

where 

I = 1, ...  ,20  indices  for  the  points  in  the  route 
(sec  COMMON/XRT/  for  arrangement),  and 

J - 1 M maneuver  unit  numl>ers. 


INITIALIZATION:  None 

USERS:  HXYMCP,  RTJOIN,  RTSECT 


LENGTH:  20  * M 


COMMON/ZSAVE/ 


CONTENTS: 


ZSAVE(I,  J)  is  the  Z analog  of  XSAVE. 


APPENDIX  B 

SUBROUTINE  FLOW  CHARTS 


r 


List  of  Subroutines  in  Section  1 


ADJPOS 

B-4 

AFASGN 

B-7 

A FDC 

B-15 

AFO 

B-21 

A FSC 

B-47 

AIRAMO 

B-69 

AIRFB 

B-73 

AIRFIR 

B-86 

AIRPOR 

B-92 

AIRSEL 

B-96 

APPINT 

B-99 

ARFO 

B-107 

ATAN5 

B-113 

ATDEC 

B-119 

ATKPRM 

B-127 

AVAIL 

B-147 

BFLITE 

B-152 

CASHEL 

B-156 

CBCONT 

B-160 

CBFIR 

B-165 

CBOBS 

B-167 

CMMIS 

B-170 

CNFLCT 

B-I75 

CNTOUT 

B-184 

CONVRT 

B-187 

COUNT 

B-191 

CRTLOC 

B-195 

CSMOVE 

B-197 

CSNBOR 

B-204 

CSRTSL 

B-206 

CSTCDF 

B-214 

CSTIME 

B-216 

CSWCAS 

B-219 

CSWCON 

B-224 

CSWDES 

B-238 

CSWGRD 

B-241 

CXYLOC 

B-249 

See  Section  2 for  remainder  of  subroutines. 
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Subroutine  ADJPOS 


PURPOSE:  Subroutine  ADJPOS  determines  the  adjusted  position  of  a platoon 

in  a team  or  the  adjusted  position  of  a section  in  a platoon.  The 
position  is  adjusted  to  account  for  platoons  or  sections  not  op- 
erating in  the  unit  formation. 


CALLING  SEQUENCE: 

CALL  ADJPOS(NPAR  ,ICNT , JKPOS) 
where 


METHOD: 


JKPOS 

NPAR 

ICNT 


position  of  unit  in  parent  organization 
parent  organization  number 

■ 

program  process  controller 

1 parent  organization  is  a team 
0 parent  organization  is  a platoon 


See  Chapter  6 of  Volume  1. 


COMMON  AREAS  REFERENCED: 

ITORG 

IPORG 

FORMSE 

SUBROUTINES  REQUIRED: 
ERROR 


IV- 1 


* 


r ^ 


Subroutine  ADJPOS:  Formation  Position  Adjustment 


Subroutine  A DJ  POS : Continued 


* .* 


Subroutine  AFASGN 


PURPOSE : Subroutine  AFASGN  is  used  to  determine  whether  aerial  units 

should  perform  MISTIC  forward  observer  missions,  special 
forward  observer  missions  or  indirect-fire  MISTIC  missions. 

CALLING  SEQUENCE: 

CALL  AFASGN(KOLOR.IASGN) 
where 

KOLOR  = indicates  which  force  is  being  considered 
IASGN  = unit  to  which  aerial  unit  is  to  be  assigned 

If  IASGN  k 0,  an  aerial  unit  should  perform  an 
indirect-fire  MISTIC  mission  as 
a member  of  MISTIC  unit  IASGN 

If  IASGN  > NUMART,  an  aerial  unit  should  per- 
form a MISTIC  forward  observer 
mission  as  a member  of  MISTIC 
unit  IASGN  - NUMART 

If  0 < IASGN  s NUMART,  an  aerial  unit  should 
perform  a special  forward  ob- 
server mission 

If  IASGN  = 0,  no  mission  should  be  performed 

METHOD:  See  Chapter  2 of  RF  2978  FR  71-3A  (U). 

COMMON  AREAS  REFERENCED: 


IMIST 

N MIS  UN 

I PHASE 

LKILL 

NUMBER 

NFOMAX 

LWCOD 

NOBVII 

NFOCRT 

NFLCRT 

KFDC 

NLNMAX 

NFUCRT 

IUNACT 

NFMMAX 

SUBROUTINES  REQUIRED: 

None 

B-7 
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Subroutine  AFASGN:  Determining  Requirements  for  Aerial  Unit 

Launcher  and  Forward  Observer  Missions 
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Subroutine  AFASGN:  Continued 


tZ. 


H-10 


© 


Is  KOLOR 


NBAVT 


LAST? 


No 


Set  I = NBAVT  + 1 
I AST  = NUMA  VT 


Subroutine  AFASGN:  Continued 


^ Is  KO 1 XJR  = 0? 
^ Yes 

Set  I = I 

IAST  =-  NBMIS 


Set  1 -=  NBMIS  + 1 
LAST  --  MIST  UN 


Set  R2  = 0 
KV2  = 0 


' \Ycs  f > 

Is  I > LAST?  ) — —►(  300 


Determine  the  weapon  code  of  MISTIC  unit  I;  i.e. , 
LWC  = LWCOI)(NUMELE+NUMART+I)-MWART 


Compute 

NFOM(I) 

R = 

NLNM(I) 

Is  It  < NFLCRT(LWC) 


IsR>  NFUCRT(LWC)  ? 
[Yei 


Compute 

R-NFUCRT(LWC) 
R " NFUCRT(LWC) 


yeef  Are  there  too  many  MISTIC 
| — ( FO's;  i.e. , is 

V NFOM(I)  a NFMMAX(LWC)?^ 

1[*^ 

Compute 

R - NFLCRT(LWC) 


NFLCRT(LWC) 

I 

Is  R < Rl?  ) 
lYes 


Set  Rl  = R 

IS VI  - NUMART  + I 


Subroutine  A TASGN:  Continued 
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Subroutine  A FDC 


PURPOSE:  Subroutine  AEDC  represents  communications  activities  associ- 

ated with  initiation,  confirmation  and  cancellation  of  fire  requests. 


CALLING  SEQUENCE: 

CALL  AFDC(TIME  ,NT) 
where 

TIME  = computed  event  time  for  radio  net  NT 
NT  = radio  net  number  being  processed 


METHOD:  See  Chapter  15  of  RE  2978  ER  71-3A  (U). 

COMMON  AREAS  REFERENCED: 


EC LOCK 

MISTYP 

SIGONP 

IFBMIS 

NFR 

SIGPLT 

IFDCKL 

NFRMAX 

STRTIM 

IFDCNT 

NTELE 

TFDCKL 

KFDC 

NUMBER 

UADJ 

LSTFDC 

NUMFIR 

UONP 

MAINPR 

MISFRL 

SIGADJ 

UPLT 

SUBROUTINES  REQUIRED: 

DATATM 

RANND 


B-15 


Ml  •*■**-«* 


AFDC 


Subroutine  AFDC:  Fire  Direction  Center  Activities 


* 


A 
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Determine  the  type  of  fire  being  requested;  i.e. , 
set  LWC  = MISTYP(K.NT) 


Yes  f Is  this  request  for  on-call  fire;  ^jjo 
\ i.e.,  is  MISFRL(K.NT)  a 3? 


Determine  processing  time  for  an  on-call  Determine  processing  time  lor  a target 

fire;  i.e.,  of  opportunity;  i.e. , 

FDPLT=UONP(LWC)+Np,l)*SIGONF(LWC)  FDPLT+UPLT(LWC)+N(0 ,1)*SIGPLT(LWC) 


Determine  clock  time  at  which  data  for  this 
mission  will  become  available;  i.e. , 
STRTIM(K.NT)  = FDPLT  + TIM  + TC(NRTCLK) 


Subroutine  A FDC ; Continued 


200 


i 

■ 


Subroutine  A FDC:  Continued 


Is  this  an  artillery  FDC;  A No 
i.e.,  is  NT  — NUMART? ) 


Yes 


Is  the  battery  presently  firing  a mission;^  Yes 
i.e.,  is  IFBMIS(NT)  > 0? 


No 


Determine  the  fire-request  list  entry  that  will 
beeome  the  battery's  next  mission;  i.e. , 
call  DATATM(I  ,K , NT) 


CIs  the  battery  to  be  the  current  element  before  the  next 
mission;  i.e.,  is  TC(NFBCI.K)  ^STRTIM(I.NT) 
where  NFBCI.K  = NT  + NTFB? 


No 

I 

Update  the  battery’s  clock  to  begin  the 
mission;  i.e. , set 

TC(NFBCLK)  = STRTIM(I,NT) 


Subroutine  A FDC : Continued 
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A 


Subroutine  A FDC : Continued 


B— 20 


'srw* 


Subroutine  AFO 


PURPOSE:  Subroutine  AFO  is  designed  to  represent  the  activities  of  for- 

ward observers  during  target  selection,  fire  request  communi- 
cation, and  fire  adjustment  events. 


CALLING  SEQUENCE: 

CALL  A FO  (TIME , NFO) 
where 

TIME  = event  time  (output) 

NFO  - forward  observer  number  (input). 


METHOD:  See  Chapter  2 of  RF  2978  FR  71-3A  (U). 

COMMON  AREAS  REFERENCED: 


AFODUZ 

ITRIG 

M NT  RIG 

SEQPAIt 

AMBDA 

IWEAP 

NCON 

SIGCOM 

CLOSE 

JARMOR 

NCONC 

SIGCOR 

DURC 

KFDC 

NFB 

SIGPBR 

DURFO 

KFOD 

NFOFR 

SIGRBR 

DURON 

KILCRI 

N FR 

STR'ITM 

DURRL 

KPAT 

NFRMAX 

TIMF.T1 

DURSTL 

KPATFO 

NHPB 

TIM  K'1'2 

EC LOCK 

KPA'l’RN 

NM ISUN 

TINIT 

ENDMIS 

KPRIOR 

NOHVH 

UCOM 

EVBAR 

KPTFItL 

NRND 

UCOREC 

FRN1 

KSEN1) 

NRNDCN 

UPRBRA 

FRN2 

KWAVAL 

NRNDFR 

URNBRA 

ICECOM 

LIIICE 

NSTIIFF 

WAITFO 

IFBMIS 

LKILL 

NTKLE 

WA1TMX 

IFDCNT 

LPREV 

NTRANS 

XCONC 

IFRFL 

LVENT 

NUMBER 

XD 

IHAMO 

LWCOD 

NUM  FIR 

XD  FO 

IHD  EMC 

LWSYS 

NUMTRLi 

XFRL 

IIITARG 

MAINPR 

NVOLM 

YCONC 

1MIST 

MDFAF 

NXCONC 

YD 

INART 

MESCON 

NX  FRL 

YD  FO 

INTARG 

M IS  FO 

NXM  FO 

Y FRL 

INTRIG 

MISFRL 

ONDIST 

I PRIOR 

MISTYP 

ORKSPN 

IPRIRR 

M NT  HRS 

RCRIT 

H-21 


SUBROUTINES  REQUIRED 


A PRIOR 

CNFLCT 

ELOC 

FRANUD 

FSCMON 

GETICE 


RANND 

SELECA 

TRIG 

WPRIOR 

WRITFO 

WRTFRL 


Subroutine  AFO:  Forward  Observer  Aetivities 


B-23 


B-24 


Subroutine  AFO:  Continued 


*TK%X*  ■ ' * a 


Call  GKTICK  to  determine  intelligence  and  other 
characteristics  of  element  1CK 


C 


Are  FO  activities  suspended  at  tills  time;  i.e 
Is  IFRFL(NFO)  = 1? 


No 


c 


No 


Set  FO  clock  to 
FIN  IT  Y,  i.  e.  , set 
TC(NFOCI.K)-FINlTY 


Are  FO  activities  being  resumed  during  this 
event;  i.e. , is  IFRFl.(NFO)  = 2? 


J 


Yes 


Set  IFRFL(NFO)  = 0 


Determine  tlic  intense 
I.e.  . set  NTOMUI 

~t 


■nse  fire  fight  indicator; 
/_  NSTllFF(NFO) 


216 


Is  a fire  mission  In  pi  ogress;  i.e.,  \Yos_ 
Is  KFOD(NFO)  > 0? 


Set  KP1  = KOLOR  + I 


No 


Is  NFO  a member  of  the  red  force;  i.e. , Is  KP1  > ~Er- 


CIs  the  blue  I 
lery;  i.e. , 


force  employing  artil-^No  No 
is  NBART  >0?  , 


1 

^Yes 

| Is  NFO  an  artillery  FO;  i.e 
V IS  INART(NFO)  >0? 

p 

i 

fYes 

No 

Set  K = 1 

L-NBFTRG 
Kl-I.  ♦ 1 
L1  = NHTKIG 

1 

Yes 


Is  NFO  a special  FO; 
i.e.,  is  NFO  - NTSFO?  J, 


(Is  the  red  fore 
lery;  i.e. , is 


force  employing  artil- 

NUMART-N11ART  •-  0 V 


Is  NFO  an  artillery  FO;  i.e. , is 
INART(NFO)  > 0?  

lYos 


No 


J. 


Set  K-  11 

I.-  NRFTRG  + 10 
K1  - I.  + 1 
l.l  - NUTRKl  t 10 


Is  NFO  a spcciul  FO; 
i.e.,  is  NFO'  NTS  FO? 


; Yes 


Set  KI.(l)  = 1 

Set  KI.(1)  = 1 

Set  K 1,(1)  =••  1 | 

Set  KL(l)  = MW  HART  ♦ 1 

LL(1)  =mwbart 

LL(1)  = 0 

I.L(l)  = 0 

I.L(l)  = MWART 

. 220 
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Initialize  trigger  priorities,  enemy  element  counters,  and  heavy 
target  counters  to  zero;  i.e. , set 
SPD(I)  = 0 

IPTRIG(I)  = 0 

IETRIG(I)  = 0 

ITANK(I)  = 0 


I 


K1 LI 


Set  I = 1 


316 


Yes 


Is  1 > IL?^ 


I + 1 — I 


^No 


c 


Sot  IT  = LIST 


9T(I)  | 


Is  IT  a heavy  target;  l.o. , is 
JARMOIt(LWSYS( LWCOD(IT)) , KK)  - 2? 

[G, 


Set  KF1AG  = 0 


Set  NTRIG  = 0 

z=F==+k: 


Call  subroutine  TRIG  to  determine  if  element  IT  is  In  a trigger 
area  whose  subscript  NTRIG  is  higher  than  the  input  subscript; 
l.e.,  call  TRIG (0 , IT,  NTRIG,  KOLOR) 


c 


Is  IT  within  a trigger  area;  i.e. , 
Is  NTRIG  >0? 


G 


foes 


No 


element  IT  a heavy  target 
KFIAG  >0? 


Yes 


' ’ "T 


1 


No 


Increase  heavy  target  counter; 
i.e. , 

ITANK(NTRiq+l  -*ITANK(NTRiq| 


Increment  the  trigger  area  priority  by  element  IT's  priority 
and  increment  the  enemy  clement  counter;  i.e., 
IPTRIG(NTRIG)  - IPTRIG(NTRIG)  + I.WTI.(I) 

iktrig(Ntrig)  = iktiiig(NThig)  + i 


Accumulate  speed  of  targets  in  area  NTRIG; i.e. , 
SPD(NTRIG)  = SPD(NTRIG)  + KVHAH(IT) 


Subroutine  AFO:  Continued 
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I 


(”“) 

Set  1 K1 

Z±^T~' 

Is  1^  ►/a2^ 

^No  " " ^ 

Yes  ( Is  trimmer  priority  of  area  I zero;  't 
^ i.e. , is  IPTHKi(l)  0?  J 

~ ~^N~o 

Set  XC  - XCONC(NCONC(I)) 

YC  - YCONC(NCONC  (1)) 

N = NCONC(I) 

ZXZZ 

Compute  average  speed  of  lariats  in  area  I;  i.e., 
AVSPD  - SP1)(I)/IETR1G(1) 


Compute  expected  target  duration  lime;  i.e. , 

DUR  = ORESPN(KK)  + liN-0ls  !lNj.  !£*>) 
AVSPD 


CIs  Uie  ealeuiated  duration 
target;  i.e. , is  OUR  > 


time  greater  than  that  of  a stationary  A Vos 


1 

Determine  number  of  rounds  to  lie  fired;  i.e., 

NltNDC  = [ FRNl(KK)*rTANK(T)+EKN2(KK)*(IETHIG(I)-n'ANK(l))J 
where  | A ] is  the  greatest  integer  less  than  A 

Determine  event  time;  i.e. , 

T DELTA  = UONCAL+  N(0,  l)*SIGONC 


Call  subroutine  WPKIOlt  lo  determine  incremental  priority 
weight  1TVVS  to  be  added  to  account  for  target  complex,  char- 
acteristics; I.e. , call 

WPRJOltfNTOMUK,  KK,  Dlllt,  XC , YC,  NltNDC,  1TWS) 


Add  incremental  priority;  i.e., 
IPTRIG(I)  — lPTRlG(f)  + ITWS 


Subroutine  AFO:  Continuod 


Does  trigger  priority  exceed  firing  threshold;  i.c. , \ 
is  IPTHIG (I)  > MNTIUG(KK,  I)?  J 

~ jpYes 

Is  I of  higher  priority  than  any  found  previously;  i.e. , 
is  IPTHIG  (I)  > IPRS? 


Determine  weapon  code  of  unit  to  which  NJ'O  belongs; 
i.e.,  set  I.WC  = LWCOD(NUMELE  + INART(NFO)) 


No  f Has  the  l'O  found  a target  that  may  1*  attached  Ijy 
V.  his  unit;  i.e. , is  KK  = LWC? 


Set  NCNTRI.  =■  TNART(NFO) 


Call  subroutine  CNFJX1T  to  determine  whether  target 
I conflicts  with  a target  of  the  unit;  I.e. , call 
CNFLCT(KK,XC  ,YC  ,NCNTRL,K01-0H  ,11.1 , 1.1ST1, 1.1ST2) 


_Yes/  Docs  target  I conflict;  i.e. , is 
V I LI  > 0? 


Record  new  best  target;  i.e. , 


XDI'O(NI'O)  XCONC(N) 
YDFO(NFO)-YCONC(N) 


NXMFO(NFO)-NXCONC(N)  l)URFO(NFO)  = DUR 


INTARG(NFO)-IFTRIG(l) 


KPATFO(NFO)-  KPATltN(N)  IWF.AP(NFO)=lTANK(I) 


MEFO(NFO)=4 


IPRIOR(NFO)-IPTRIG(I) 
IPRS  -IPRIOR(Nl'O) 


♦TC(NFOCLK) 
KS  K ND(NFO)  - KK 
NHND(NFO)=  NRNDC 
NCON(NFO)=N 


Subroutine  AFO:  Continued 
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Subroutine  AFO:  Continued 


Record  the  best  target;  i.e. , 


XDFO(NFO) 

= 

xc 

YDFO(NFO) 

= 

YC 

KPATFO(NFO) 

= 

KPATC 

NXMFO(NFO) 

= 

0 

MISFO(NFO) 

= 

MIS 

IPRIOR(NFO) 

= 

NPRIOR 

DURFO(NFO) 

= 

DUR+TC  (NFOC  LK) 

NRND(NFO) 

= 

NRNDC 

KSEND(NFO) 

= 

KK 

INTARG(NFO) 

= 

NEEL 

IWEAP(NFO) 

= 

NTNK 

IPRS 

= 

NPRIOR 

NCON(NFO) 

= 

0 

Subroutine  AFO:  Continued 
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Is  NFO  a special  l'O ; i . c . , is  \Vos 
NFO  £ NTSI'O?  / 


No  ( Is  NFO  a member  of  the  red  force;  i.c. , \ Yes 
V is  KP1  > 1?  y"~ 


Is  the  blue  force  employing  ' 
artillery;  i.c.,  isNBART  > 0? 

~ [No  ^ 


Is  the  red  force  employing 
artillery;  i.e. , is 
NUMAHT  - N11AHT  > 0V 


Is  NFO  an  artillery  l’O;  i.e. , 
is  INAHT(NFO)  > 0? 


f Are  any  on-call  fires  lo  be  triggered  by 

T 

Y friendly  elements;  i.e. , is  K - L? 

) 

4J5  1 

Set  IETRIG(l)  = 0;  I = K I, 


Determine  weapon  code  of  NFO’s  unit;  i.e.  ,set 
KK  = LWCO»(NUMEI.K  + INART(NFO)) 


Determine  first  and  last  friendly  element  numbers;  i.e. , 
IT  = KO  LOR*  NUMBER 

NLEL  = NUMHL1-:  + KOLOR*(NUMELK  - NUMBLE) 


IT  + 1 -.IT 


Is  IT  > NLEL? 
[No 


Sot  NTI 


NTHIG  = 0 


Call  subroutine  TRIG  lo  determine  if  element  IT  is  In  a 
trigger  area  whose  subscript  NTHIG  is  higher  than  the 
input  subscript;  i.c.,  call  TRIG(1,  IT,  NTR1G  , KOLOH) 


Subroutine  AFO:  Continued 
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Is  IT  within  a trigger  area;  i.e. , 
NTU1G  > 0? 

1 Yes 


Yes 


Has  trigger  area  NTItIG  U'en  exam 
ine<l;  i.e. , is  H:TltlC(NTItlC)  :•  07 


^Set  IKTRK 


Tno 


Set  IFTRIG(NTIUG)  J 


No 


Is  trigger  priority  value  greater  than  those  found  pre- 
viously; i.e.,  is  ITHlCI(NTHKf)  > 1PHS? 


IYoS 


Set  XC  XCONC(NC( >NC  (NTItIG)) 

YC  = YCONC(NCONC(NTHlG)) 
NGNTHH  = INART(NFO) 


Call  subroutine  CNFLCT  to  determine  whether  target  NTItIG 
conflicts  with  a target  of  the  unit;  i.e. , call 

CNFLCT(KK,XC  ,YC  ,NCNTltl.,KOU)l{  ,11,1 , 1.ISTJ , 1JKT2) 


Yes 


(Does  target  NTH1G  conflict;  i.e. , A 
is  1IJ  > 0? 


^ No 

Record  new  best  target; 

i.e., 

IPRS 

ITRIG(NTHIG) 

IPRIOR(NFO)  = 

ITRIG(NTRIG) 

N = 

NCONC(NTHIC) 

XDFO(NFO)  = 

XCONC(N) 

YDFO(NFO)  - 

YGONC(N) 

KPATKO(NFO)  ^ 

KPATltN(N) 

NXMFO(NFO)  = 

NXCONC(N) 

KSFND(NFO)  - 

KK 

NIIND(NFO)  - 

NltNDCN(N,  KK) 

DUUFO(NFO) 

DUHON(N)  i TC(NFOGl.K) 

MIS  FO(NFO)  = 

3 

NCON(NFO)  - 
NUMTRG(NFO) 

N 

I 

i 

Compute  event  time;  i.e., 

TDKLTA  • UONSK1,*N(0,  1)*SIGSKL, 


420 
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Subroutine  AFO:  Continued 


B-35 


435 


Subroutine  AFO:  Continued 
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■<**%**  • 


<%  J> 


B-38 


Has  NFO  been  instructed  to  place  liis  call 
for  fire  with  a different  unit;  i.e. , is 
KPOD(NPO)  -4? 


No/  Does  NFO  have  an  adjustment  or  verifying 
'y  message;  i.e. , is  KFOD(NPO)  - 3? 


Determine  net  upon  which  NFO  is  communi- 
cating; i.e.,  set  NT  = NTRANS(NFO) 


1_ 


Determine  the  number  of  the 
new  receiver; i.e. , set 
NT  = Nl’KA  NR(NFO) 


1 Ret  KFOD(NFO)  r 

~ 

Is  the  radio  net  open;  i.e.,  If  \Tes 

IFDCNT(NT)  = 0?  ) 


Determine  number  of  fircr;  i.  e.  , 
set  NF  = NFIMNFOl 


Determine  clock  number  of  fircr; 
1.  c.  , NFBC1.K  = NTF13  I NF 


Determine  clock  number  of  receiver; 
i.e.,  NltTCLK  = NT  + NTFDC 


Update  NFO's  clock  anti  call  again  next 
event;  1.  c.  , 

TC(NFOCl.K)  - TC(NFOCI.K)  1 WAITFO(NT) 


RETURN) 

TO 

V MAIN  J 


Record  the  fircr  to  which  tlic  message 
is  addressed;  1.  c.  , sot  NUMFIIt(NT)  ^ NFJ 


Is  the  message  addressed  to  an 

aerial  unit;  i.  o. , 

is  NF  > NUMART  + ITOTI.NV 


Set  flag  to  indicate  receiver  Js  now 
busy  with  a fire  verification  message 
for  air;  i.  e.  , set  IFDCNT(NT)  - 3 


Ret  flag  to  indicate  receiver  is  now 
busy  with  a fire  adjustment  or 
verifying  meisngo;  1.  c.  , Hot 
lFDCNT(NT)  - 2 


Subroutine  AFO:  Continued 


A 


f 1 1 


Subroutine  AFO:  Continued 
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Cls  element  IT  a casualty;  i.  e.  A Yes 
is  LKILL(IT)  S3?  J 

| No 

Is  element  IT  distant  from  the  vicinity 
of  the  current  aim  point;  i.  e.  , is 
| XI  - XDA  | > CLOSE(KK)  or 

| YI  - YDA  | > CLOSE(KK)  ? 

4 No 


Is  the  target  list  empty;  \ No 
i.  e.  , is  IL  = 0 ? J 


Enemy  elements  are  either  killed  or  have  moved  out 
of  the  area.  Set  flag  to  notify  firer  that  this  mission 
has  terminated;  i.  e. , set  MISFO(NFO)  = 3 


Subroutine  A KO:  Continued 


Subroutine  A FO:  Continued 
H-45 
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4 * 


I 


Subroutine  AFO:  Continued 
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Subroutine  AFSC 


PURPOSE:  Subroutine  AFSC  is  designed  to  represent  the  active  operations 

of  the  fire  support  coordinator  element  associated  with  fire 
support  mission  assignment. 

CALLING  SEQUENCE: 

CALL  AFSC  (NT,  TIME) 
where 

NT  = radio  net  number 
TIME  = event  time  increment 


METHOD:  See  Chapter  2 of  UK  2‘)7H  Fit  71-3A  (U). 

COMMON  AREAS  REFERENCED: 


DURFO 

KFOD 

NTELE 

DURRL 

KMANN 

NTItANS 

ECLOCK 

KPTFItL 

NUMBER 

ELOCX 

KSEND 

NXFRL 

ELOCY 

LFUNC 

REJTIM 

FSCTIM 

LNUM 

SEQPAR 

GOEXAM 

MISFO 

SIGCOM 

IFDCNT 

MISFItL 

TINIT 

IFRFL 

MISTYP 

UCOM 

1MIST 

NAX1S 

WAITFO 

INART 

NCON 

XAXIS 

INPRIR 

NFB 

XDFO 

INTARG 

NFOFlt 

XFB 

IPRIOR 

NFR 

XFRL 

IPRDIR 

NOBV1I 

YAXLS 

1REQ 

NPTS 

YDFO 

IT  MASS 

NRNDFR 

YFB 

IWEAP 

NSTIIFF 

YFRL 

KFDC 

MESARR 

SUBROUTINES  REQUIRED: 

AFASGN 

KLOC 

REASFO 

A IRS  EL 

ERROR 

REVA1. 

AVAIL 

FSCVA  L 

CNFI.CT 

RANNI) 

13-17 


A FSC 


Determine  the  clock  number  of  the  current  element; 
i.e.,  NRTCLK  = NTFDC  + NT 

l E ' 

Is  NT  the  ground-to-air  communicator  element;  i.e. /\ No 
is  NT  > NUMART  + MISTUN  + 2?  J * 


Determine  the  color  of  the  current  element  and  a 
subscript  for  data  recording;  i.e., 

KOLOR  = NT  - NUMART  - MISTUN  - 3 
KSUB  = ITOTFO  + KOLOR  + 1 


Is  this  a communications  event;  \ Yes 
i.e.,  is  KFOD(KSUB)  = 1?  J 


Determine  the  number  of  missions  for  aerial  vehicles 
on  the  fire  request  list;  i.e. , set  NFllT  - NFR(NT) 


Determine  whether  a need  exists  for  aerial  forward 
observers  or  MISTIC  launchers;  i.e. , call 
AFASGN(KOLOR.IASGN) 


Is  no  assignment  to  be  made;  i.e.  AYcs 
is  ISAGN  = 0?  ) 


NFR(NT)  + 1 -.  NFR(NT) 
NFRT  = NFR(NT) 


No  f Is  the  assignment  indirect-fire 
MISTIC;  i.e.,  is  IASGN  < 0? 


Subroutine  A FSC:  Fire  Support  Coordinator  Activities 


Set  N = | IASGN 


IASGN  = N-NUMART 


Determine  the  maneuver  unit  corresponding  to  MISTIC 
unit  IASGN;  i.e. , set  MAN  - KMANU(NSUII)  where 
NSUB  = NUMAVT  + IASGN 


Determine  the  axis  of  advance  occupied 
by  MAN;  i.e. , set  NAX  = NAXIS(MAN) 


Determine  the  number  of  points  in  axis  of  advance  NAX; 
i.e.,  set  NP  = | NPTS(NAX.MAN)  | 


Determine  the  desired  position  for  the  launcher  team; 
i.e. , set 

XA  = XAXIS(NP,NAX,MAN) 

YA  = YAXIS  (NP , NAX , MA  N) 


Subroutine  AFSG:  Continued 


ERROR 


/^Are  there  missions  left  on  the  list  to 
be  examined;  i.e. , is  I - NFRT? 


[Yes 


No 


21 


Set  XC.YC  = XFR  L(I , NT) , YFRL(I , NT) 


w 


Call  subroutine  CNFLCT  to  determine  whether  the 
mission  conflicts  with  any  fires  being  processed  or 
delivered;  i.e. , call 

CNFLCT(0 , XC  , YC , 0 , KOLOR  ,IL1 , LIST1 , LIST 2) 


Does  the  request  conflict;  i.e. 
is  IL1  > 0? 


jo  f Is  the  request  priority  greater  than  any  found  thus 
_ 1 far;  i.e.,  is  IPRIRR(I,NT)  > MAXPRI? 


Record  the  request  as  the  best  scheduled  aerial 
mission; i.e. , set 

MAXPRI  = IPRIRR(I,NT) 

ISAVE  = I 


Subroutine  A FSC : Continued 


4 


200 


Was  a suitable  request  found ; \ No 
i.e.,  is  MAXPHI  > 0? 


No  f Is  the  current  element  blue;  Ay 

i.e.,  Is  KOLOH  - 0?  ) “ 


Set  KL  = NRAVT  + 1 
KU  = NUMAVT 


Set  KI.  - 1 

KU  = NUAVT 


Set  KLASS  = 3 
II. 2 = 0 


Call  subroutine  AVAIL  to  obtain  a list  of  available  aerial 
vehicle  teams;  i.e.,  call 

AVAIL(XC  ,YC  .KLASS  ,K L,KU  ,IL2,LIST3,I  JST4 .1.IST5  .ISIG) 


Were  any  teams  found;  I.e. , Ano  / > 

Is  IL2  > 0?  / 430 


Set  I NIT  = 1 

Kipns(l)  ^ MAXPHI;  I - MWMIS+1 MWAIH 


Call  subroutine  AIHSKL  to  select  on  aerial  team  for  assignment  to 
the  mission;  i.e.,  call 

AIltSE  I.fJSAVE  , Il’HMAX , INTr  ,1 L2, 0 , KIPHS , I JST3,  LIST4 , UST5) 


Was  an  aerial  vehicle  team  assigned;  A Yes 
i.e.,  is  JSAVK  > 0? 


Subroutine  AFSC : Continued 


ru  > 


Set  NFB(KSUB  = LIST3(JSAVE) 

NTRANS(KSUB)  = NUMAHT  + M1STUN  + KOLOR  + 5 


©■ 


| Set  IREQ(KOLOR->l)  = 1SAVE 



> 

Set  NET  = 

NTUANS(KSUU) 

Yes  { 


Is  the  net  busy  over  which  the  FSC  wishes 
to  communicate;  i.e. , 
is  IFI)CNT(NKT)  > 0? 


Update  clock  of  ground-to-air  comnumicator  | 
and  call  again  next  event;  i.e. , 
TC(NRTCLK)+WAITFO(NET)  -*  TC(NRTC  LK)| 
KFOD(KSUB)  = 1 


Transmit  fire  request  data  to  receiver; 
i.e. , 

m = IREQ(KOIX)It  4 1) 

NFR(NET)  = NFR(NET)  + 1 
NFHT  = NFR(NET) 

XFRL(NFRT , NET)=XFR  I.(IR , NT) 
YFRL(NFRT , NET)"  Y l'R  L(Ul , NT) 

KPT  FR  I.(  NFRT , NET) -KPT  FR I .( I K,  NT) 
NXFRE(NFRT.NET)  = NXFRL(IR.NT) 
M1SFRL(NFRT  ,NKT)  - M1SFR1.(1I<  ,NT) 
IPRIRR(NFRT , NET)  = IPRlHRflK  ,NT) 
durrl(NFRt,ni:t)  - durrhir ,nt) 
NFOFR(NFRT,NKT)  - KSUB 
NRN1)FR(NERT , NET)  - NRNDFItfllt , NT) 
MISTYP(NFRT , NET)  - MISTYP(U! . Nl') 


Set  flag  to  indicate  receiver  has  fire 
request  communication  in  progress; 
i.e.,  set  IFDCNT(NET)  - 1 


Subroutine  A FSC:  Continued 


B-54 


Try  to  select  a mission  again  next  event;  i.e. , update 
clock  of  ground-to-air  communicator, 

TC  (NRTC  LK)  + GOKXA M(KO  1 X)R  + 1)  > TC  (NRTC  LK) 


Subroutine  A FSC:  Continued 
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coo 


Determine  the  color  of  the  current  element; 
i.e. , KOLOII  - NT  - NUMAHT  - MBTIIN  - 1 


^690^*- 


c 


Is  the  fire  request  list  empty 
i.e.,  is  NFR(NT)  = 0? 


No 


Set  flag  Indicating  net  is 
now  open  for  communi- 
cation; i.e. , set 
, IFDCNT(N'J')  - 0 


Determine  the  numlx*r  of  the  KO  requesting 
fire;  i.e.,  set  NKO  NKOKUfl  ,NT) 


1 


Determine  the  eloek  number  or  NKO; 
i.e.,  NEOCLK  = NKO  + NT KO 


I’luee  fire  siqiport  coordi- 
nator in  a standby  status; 
i.e. , set 

TC(NRTCLK)  KIN1TY 


Determine  artillery  unit  to  which  NFO  belongs 
if  he  is  an  artillery  FO;  i.e. , 

NETOLD  = INART  (NFO) 


No  f Is  NFO  assigned  to  an  artil- 
lery unit;  i.e. , is  NETOLD 


>o?y 


.Yes 


Has  artillery  uidt  NETOI.D  been  assessed  long 
term  neutralization;  i.e., 
is  KFI)C(NETOLD)  = 2? 


Yes 

JL. 


Try  to  reassign  NKO  to  another  urtillery  unit;  i.e., 
call  HEASKO(K( ) LOR , NETOLD, NEW  NET) 


©Yes  f Was  an  arlill 
“*  ~~~Vv  mcnt;i.c.,i 


rlillery  unit  found  for  rcasslgn- 
is  NEW  NET  >0? 


D 


No 


Determine  element  number  of  NFO's  carrying 
vehicle;  i.e.,  NVEIl  = NOBVH(NFO) 


640 


Subroutine  A FSC:  Continued 
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Subroutine  AFSC:  Continued 


li-r>N 


' V > 


r 


Subroutine  AFSC:  Continued 


Set 

KLASS  = 2 
1LO  = MWAKT  + 1 
OJP  MW  MLS 


Set 

K1ASS  =-  1 

11.0  ^ 1 

hip  = MWAin 


Set  1 1.2 


Call  subroutine  AVAIL  to  determine  a list  of  units  that  ure 
available,  and  which  deliver  the  same  class  ol  lire  as  Vim 
request;  i.e. , call 

AVAIL(XC,YC  ,KIASS,KI.,KI!,1L2,  LIS'1'3,  LIST4, 

LISTS , 1SIG) 


f Are  any  units  available;  l.c. , 

'(No 

l is  IL2  > 0? 

) 

1100  1 

Is  the  request  for  aerial  fire;  i.c. , \No 
is  KK  > MW  MIS  ? f 


Set  1N1T  ^ 1 

KIl’ILS(I)  ll’R10It(Nl,'0); 

I « MWMLS  i 1 MWAIIl 


Call  subroutine  AIHSKI.  to  select  an  uerlal  team  for  assignment  to 
the  mission;  I.e. , call 

AIRSI-:  L(BA  Vi: , 1 1*11  MAX , IN1T , 1 1 .2 , KK , KI PRS , I JST3 , 1 ,LST  I , 1 JSTS) 


Subroutine  AFSC : Continued 


I + 1 — » I 


Set  I = X 

KFR  = FINITY 
IKAVE  = 0 


Does  the  unit  represented  by  entry  I deliver 
fire  of  exactly  the  same  characteristics  as 
the  request;  i.e. , is  LIST4(I)  = KK? 

^Yes 

Is  the  fire  request  list  for  entry  I shorter 
than  others  examined  thus  far;  i.e. , 
is  NFR(I,IST3(I))  < KFR? 


Yes 


Subroutine  AFSC : Continued 


Determine  the  type  of  fire  having  maximum  priority 
against  the  target;  i.e.,  find  IMPRS  where 
KIPRS(IMPRS)  = max(KIPRS(I)) 

ILO  ^ I £ IUP 


Set  I = 1 

KFR  = FIN1TY 
ISAVE  = 0 


Is  LIST4 (I)  = IMPRS? 


Is  NFR(LIST3(I))  < KFR? 


Record  entry  I as  the  best  unit  for  assign- 
ment; i.e. , set 

ISAVE  = I 

KFR  = NFR(LIST3(I)) 


Establish  parameters  for  reevaluation  of  the  target  for 
the  new  weapon  type;  i.e. , set 
NEVAL  = 1 

NC  = NCON(NFO) 

KTYPE  = LIST4  (ISAVE) 

NET  = LIST  3 (ISAVE) 

IONCAL  = MISFO(NFO) 


Subroutine  A ESC;  Continued 


13 


Subroutine  AFSC:  Continued 


B-64 


'fv,s%C* 


i imapinMm^qppjpppqjg^pQpj^p^^jj^ggp^ggj^pggQH 


Suhrmitint*  A.  1-*S( ’ : Contimu'ri 


li-Cf, 


1 


Subroutine  AFSC : Continued 


1400 


Were  any  aerial  units  found  for  assignment;  'v  Yes 
i.e.,  is  IPRMAX  > 0? _ J 

wNo 


Were  any  other  units  found  for  assignment;  A Yes 
i.e.,  is  MAXI  Pit  ^ 0?  J 


Subroutine  AFSC:  Continued 


No  [ Do  parameters  of  t)ie  fire  request  need  to  be  re- 
~ evaluated;  i.e. , is  NEVAL  > 0? 


Call  subroutine  REVAI,  to  reevaluate  parameters  of  the  target 
for  the  new  type  of  supporting  fire;  i.e. , call 

RE  VA  L( NC  , KT Y 1 ■ F , lONCA  L , NFO,  X C , YC.  NET,  NTOMUF) 


Set  flag  to  instruct  NFO  to  place  request  on  a 
different  net;  i.e. , set  KFOD(NFO)  - 4 


Update  receiver  and  FO  clocks;  i.e., 

TC(NRTCLK)  =TC(NRTCIJ<)  + FSCT1M(KOEOR  + 1) 
TC(NFOCLK)  = TC(NRTCIX)  + EPS1I.N 


lias  a type  of  fire  been  selected  which  cannot  A Yes 
be  used  against  the  target;  i.e.,  is  NET  •-  0?  ) 

,, 

No 

Set  flag  so  that  NFO  will  have  . 

target  selection  event;  i.e. , 
set  KFOD(NFO)  = 0 



Is  LIST4(ISAVE)  > MW  MIS 'A 


Set  NET  = NUMART  + MISTUN ^ KOLOR+5 
NFB(NFO)  = 1JST3(ISAVE) 


Record  the  new  net  for  NFO;  i.e. , 
set  NT  RA  NS  (NFO)  = NET 


Delete  the  fire  request  on  the  fire  support  coordinator's 
fire  request  list;  i.e. , set  NFR(NT)  = 0 


RETURN 


Subroutine  A FSC : Continued 


«Bfal  TV 


A040  053 


Subroutine  A IRA  MO 


PURPOSE:  Subroutine  A IRA  MO  determines  the  total  number  of  destructive 

and  suppressive  fire  weapons  currently  available  to  a specified 
aerial  vehicle  section. 

CALLING  SEQUENCE: 

CALL  AIRAMO  (IASC,  KAZ,  LAZ,  IWC,  IAE) 

where  IASC  = aerial  vehicle  section  number, 

KAZ  number  of  point  fire  weapons  currently  available, 
LAZ  number  of  suppressive  fire  weapons  currently 
available, 

IWC  aerial  vehicle  section  weapon  code,  and 
IAE  array  of  element  numbers  of  section  IASC. 

METHOD:  See  Chapter  6 of  Volume  1. 

COMMON  AREAS  REFERENCED: 

AMOSPY  KAMOAV 

JAMOAV  L1IIC  E 

KAMMAX  NAMO 

SUBROUTINES  USED:  AMMO 

AIRAMO  CALLED  BY:  AIRFIR 

LENGTH:  550,.  - 1360,  bytes 

16  10 


A IRA  M' 


Subroutine  AIRAMO 


B-70 


Is  NAMO(K,  IE)  below  ci'itical  level;  i.  e. , 
is  AMOSPY(K,  IE)  < 1? 

4 No  ~ 

CIs  K a point  weapon;  i.  e. , )Yes 
is  KAMOA  V(K,  IWC)  1? 


Is  KAMMAX(IWC)  ^2? 

\ \ No 

^“ls  K POINT  TT~) 

ni — 

♦ No 

Set  KA  Z + 1 -►  KA  Z 
KPOIN'i'  1 


Yes  f Is  KARKA  0 ami 

KAMMAX(IWC)  0? 


_Yos / Is  KA  11 EA  1 and 

KAMMAX(IWC)  lor  2? 


Set  LAZ  + 1 -*  IAZ 
KAREA  + 1—  KA  It  EA 


Subroutine  A I KAMO:  Continued 


CA*  1%  ■*  - - 


Subroutine  AIRFB 


PURPOSE:  Subroutine  AIRFB  simulates  the  decisions  and  resulting  com- 

munications activities  required  for  initiation  and  termination 
of  missions  by  an  aerial  unit. 

CALLING  SEQUENCE: 

CALL  AIRFB(NAT.TIME) 

where 

NAT  = aerial  unit  number 

TIME  = event  time 

METHOD:  See  Chapter  4 of  Volume  1. 


COMMON  AREAS  REFERENCED: 


DURFB 

KANCEL 

MESAliR 

SEQPAR 

DURRL 

KFO 

MESCON 

SIGSEN 

EC LOCK 

KFOD 

MISFRL 

STRMIS 

END  MIS 

KMANU 

MIST  YP 

STRTIM 

EVTIM 

KPRIOR 

MPTR 

T1N1T 

IC  ECOM 

KPTFRL 

NFB 

USEN 

IFBMIS 

LARFB 

NFOFR 

WAITAD 

IF  DC  NT 

LMUFL 

N FR 

WA1TFO 

IFRFL 

LSTFDC 

NRNDFR 

XD 

I PHASE 

LWCOD 

N'i’ELE 

X FRL 

IPRIRR 

MAINPR 

NUMBER 

YD 

IT  MASS 

MANACT 

AVOLM 

Y FRL 

IUNACT 

MANLDR 

NX  FRL 

SUBROUTINES  REQUIRED: 

ATDEC 

PRMSET 

ST  AXIS 

CBCONT 

RANND 

WRTFRL 

ELOC 

STAC  LK 

WRIT  FO 

AIRFB  CALLED  BY: 

MAIN  PROGRAM 

LENGTH:  .*»  1«»A , 1 fiiifiH , ()  bytes 


Subroutine  AIRFB:  Aerial  Unit  Mission  Assignment 


B-74 


Subroutine  AIRFB:  Continued 


B-75 


0 


Is  a movement  decision  pending 
LMUFL(MANUN)  or  MANACT(NAT 


; i.e. , is  N Yes  Z''  N 
4AT)  > 0?  J 380  \ 


Set  KDEC  = 0 to  Indicate  that  no 
activity  decision  has  been  made 

! 

Determine  the  decision  to  be  made; 
i.e.,  call  ATDI'C (NAT, KDEC) 

- 

r 

(Has  an  : 
i.e.,  is 


activity  decision  been  made;  ^yes 
KDEC  >0? 


360 


^370^- 


0 


No 


►^noo^ 


Is  aerial  unit  NAT  negotiating  a new  mission 
is  MPTR(NAT)  > 0? 


;jN<r 


ission;  i.eT^y 


No/ 


^380^-i 


(Should  unit  NAT  be  negotiating  a mission  ;\ye8 

i.e.,  is  MESA  RR  (NAT)  > 0?  ^400^ 

jNo 

Is  unit  NAT  occupying  an  indirect-fire  MISTIC  loiter 
station;  i.e. , is  IUNACT(NAT)  - 5 and 
IPIIASE(NAT)  = 0? 


pfes 

Set  KDEC  = 5 I 


Determine  whether  unit  NAT  should  move  Its  loiter 
station;  i.e. , call  ATDEC(NAT ,KDEC) 


(Should 
i.e.,  i 


the  station  be  moved 
is  KDEC  = 5? 


No 


aJiNYes 

Y *"(  1100  ] 


Set  unit  event  time  to  that  of  a standard 
event;  i.e.,  set  TIME  = EVTIM(l.WC) 


Subroutine  ATRKH:  Continued 


B-77 


Subroutine  AlitFB:  Continue*! 


15-78 


Ls  the  mission  data  available;  i.e.,  ^No 
is  STRTIM(N.NT)  £ TC(NFBCLK)  ? 


Determine  the  event  time;  i.e. , 
set 

TIME  = STRTIM(N,  NT)-TC(NFBCLK) 
where  TIME  - EPSILN 


Decrement  the  number  of  requests 
awaiting  action  by  aerial  unit  NAT ; 
ME  SARR  ( NAT)  - 1 • M E SAR  R(NAT)| 


RETURN 


Record  the  fire  support  element  to  which  the  can- 
cellation message  is  to  be  addressed;  i.e. , 
set  KANCEL(NAT)  = NFOFR(N, NT) 


Determine  any  adjustments  required  because  a 
counterbattery  mission  is  possibly  being  rejected; 
i.e.,  call  CBCONT(NAT,N,  1) 


Remove  entry  N from  the  fire  request 
list  and  push  the  list  down 


Is  aerial  unit  NAT  attempting  to  cancel 
a mission;  i.e. , is  KANCEL(NAT)  > 0? 


Subroutine  AIRFB:  Continued 


GOO 


Set  NFOFR(N, NT)  = 0 


Set  N = MPTR(NAT) 


Has  a mission  confirmation  been  sent;  A No 
i.e. , is  MESCON(NAT)  > 0? 


Has  the  message  been  received;  i.e. , A No 
is  STRTIM(N.NT)  - TC(NFBCLK)?  J 


Was  the  request  cancelled; 
i.e.,  is  MESCON(NAT)  - 2? 


No 


✓ — X Yes  / Does  the  requested  mission  priority  exceed 
700  W 1 the  present  mission  priority;  i.e. , 

Vis  IPRIRR(N,NT)  > KPRIOR(NF)  ? 


Determine  the  event  time  for  NAT ; i.e. , 
TIME  = STRTIM(N,NT)-TC(NFBCLK) 
where 

EPSILN  ^ TIME  ^ E VTIM(LWC) 


Set  MPTR(NAT)  = 0 
MESCON(NAT)  = 0 


RETURN 


Subroutine  AIRFB:  Continued 


Subroutine  AIRFB:  Continued 


^saw« k-  ' i* 


n-8i 


c* 


Set  flag  so  that  unit  leader  will  know  a 
movement  decision  is  pending;  i.  e.  , 
set  MANACT(NAT)  = MISFRL(N,NT)  +1 


Is  aerial  unit  NAT  not  over  the  battlefield; 
i.  e.  , is 

IUNACT(NAT)  = 10  and  IPHASE(NAT)  = 0? 


Set  clocks  of  elements  in  NAT  and  adjust 
fuel  of  sections  in  NAT;  i.  e.  , 
call  STACLK(NAT) 


Establish  the  axis  of  advance  for  the 
maneuver  unit;  i.  e. , 
call  STAXIS(NAT) 


Subroutine  AIRFB:  Continued 


Subroutine  AIRFB:  Continued 


H-N3 


1000 


Subroutine  AERFB:  Continued 


• *1 


H-84 


r 


Subroutine  AIKFIi:  Continued 


B-85 


Subroutine  AIRFIK 


PURPOSE:  Subroutine  AIRFIR  determines  the  targets  and  ammunitions  for 

engagement  for  a specified  aerial  vehicle  section. 

CALLING  SEQUENCE: 

CALL  AIRFIR  (ITGASN,  JJJ) 

where 

0 no  target  selection  made  due  to  unde- 
sirable complex  availability 

ITGASN  1 no  target  selection  made  due  to  no  knowledge 

of  enemy  ground  elements 
2 target  selection  made 

> 

JJJ  flag  passed  to  subroutine  AIRPOR;  a value  of  1 denotes 
priority  weighting  factors  due  to  engagement  by  friendly 
air  elements  are  to  be  ignored. 

METHOD:  See  Chapter  6 of  Volume  1. 

COMMON  AREAS  REFERENCED: 


BLUDET 

ITYPA 

NOBV1I 

DESAIR 

KFO 

NUMBER 

ELOCX 

LHICE 

RADINC 

ELOCY 

LKILL 

RAD MAX 

IC  ECOM 

LWCOD 

REDDET 

ISORG 

MANHEL 

SUBROUTINES  REQUIRED: 

AIRPOR  TARCEN 

A IRA  MO  WASAIR 

CONVRT 

AIRFIR  CALLED  BY: 

ATKPRM  II  EL  FIR 

LENGTH:  10D81(.  4312, „ bytes 

10 


i 


1 1-8<; 


r 


AIRFIR 


NAT  aerial  maneuver  unit  number  of  ICE  MANHEL(MANUN); 
NF  = fire  support  firer  number  NUMART  + ITOTLN  + NAT; 
NFO  - FO  element  for  which  NAT  is  deli/ering  fire  KFO(NF); 
IFO  = element  number  of  vehicle  transporting  FO  = NOBVH(NFO); 
IWC  = weapon  code  of  ICE  LWCOD(ICE) 


Set  LASC  - section  number; 

(XICE,  YICE)-  coordinates  of  IAE(l),  the  leader 
of  section  IASC; 

NINSEC  = number  of  elements  remaining  in 
section  IASC 

IAE(I),  1=1,  NINSEC  element  numbers  in  IASC 
NLIST  - 0 

J IFEELE,  first  enemy  element  number 

hT  ~ 

( Is  LKILL(J)  


CIs  J a ground  element;  i.  e,  A No 

is  LHICE(J)  = 0? J 

~~  ^ Yes 

No  f Is  ICE  a red  element;  i.  e. , A Yes 
is  ICE  > NUMBLU?  J 


Have  the  FO  and  any  element  in  IASC 
both  detected  enemy  ground  element  ? 
f Yes 


Has  any  element  in  LASC  detected  \No_ 

enemy  ground  element  .1? J 

1 Yes 


Set  NLIST  + 1 * NLIST 

LIST  (NLIST)  = J 
XLIST(NIJST)  = ELOCX(J) 
YLIST(NLIST)  = ELOCY(J) 


J + 1 -*  J 


Is  J the  last  enemy 
element  number? 


Is  NLIST  = 0? 


Set  ITGASN  - 1 


Subroutine  AIRFIR;  Direct- Fire  Target  Selection 

B-S7 


r 


Subroutine  A IRFIR:  Continued 
B-88 


hi 


r 


Increment  heavy  weapon  counter; 
i.e.,  IA A + I ' LAA,  where  LAA  s 3 
IA  = LAA  + 1 


Have  all  enemy  elements  in  the  complex 
been  considered;  i.e. , is  K - NLIST2? 

Yes 


Does  the  complex  have  the  maximum  desirability  of  the  \ 
weapon  combinations  considered;  i.e. , is  r— — 

DESAIR(IA  ,IB,KA,  LA)  > DESMU?  y 


Record  information  for  the  complex;  i.e. , set 
DESMU  = DKSAIR(IA,IB,KA,LA) 

MU  = M 
XCU  = XC 
YCU  = YC 
NIJSTU  = NLET2 
ASUMU  = ASUM 

IJSTU(KZ)  = I JST(KZ);  KZ  - 1 N LIST 2 

IAAU  = IAA 
1BBU  = IBB 

Subroutine  AIItFIR;  Continued 
B-89 


400 


RETURN 


Subroutine  AIRFIR:  Continued 


Subroutine  AIRPOR 


PURPOSE : Subroutine  AIRPOR  determines  the  total  priority  weight  for 

each  enemy  ground  element  known  to  a specified  aerial  vehicle 
section. 

CALLING  SEQUENCE: 

CALL  AIRPOR(IASC  ,IAE  ,IWC , NLIST  .LIST  .APRFCW,  JJJ) 
where 


IASC 

IAE 

IWC 

NLIST 


LIST 


APRFCW 


aerial  vehicle  section  number 
array  of  element  numbers  of  section  IASC 
aerial  vehicle  section  weapon  code 
number  of  enemy  elements  known  to  ele- 
ments of  section  IASC 
array  containing  enemy  element  numbers 
known  to  elements  of  section  IASC 
array  containing  total  priority  weight  for 
each  enemy  element  in  LIST. 


JJJ 


if  priority  weighting  factors  due  to 
engagement  by  friendly  air  elements 
are  to  be  ignored 
otherwise 


METHOD:  See  Chapter  6 of  Volume  1. 

COMMON  AREAS  REFERENCED: 


ARFCW1 

ARFCW7 

ICKCOM 

ARFCW2 

ARFCW8 

ITYPA 

ARFCW3 

ARFCW9 

LIIICE 

ARFCW4 

BLUDET 

LWCOD 

ARFCW5 

EFELC 

MDFAF 

ARFCW6 

SUBROUTINES  REQUIRED: 
None 

ETIM 

NUMBER 

REDDET 

AIRPOR  CALLED  BY: 
AIR  FIR 


9521C  - 


LENGTH: 


2386jq  bytes 

B-92 


r~-  ^ 


IRPOIi 


Subroutine  A1RPOU:  Target  Priorities 
H-ita 


Did  J fire  at  an  aerial  vehicle;  i.e 
is  LHICE(KZ)  >0? 


Is  MDFAF(J)  = IAE  (K) ; K 


APRFUW(M)  + ARFCW4(IWC)  ->  APRFCW(M) 


A PRFCW (M)  + AR FCW5  (IWC)  ->  A PRFCW (M) 


Are  any  ground  elements  currently  engaging  J;  i.e. , 
is  MDFAF(K)  = J;  K = friendly  ground  element  numbers? 


APRFCW(M)  + ARFCW6(IWC)  APRFCW(M) 


Are  weighting  factors  due  to  engagement  by 
friendly  air  elements  to  be  shipped;  i.  e. , 


Are  other  friendly  air  elements  engaging  J;  i.e. 
is  MDFAF(K)  = J;  K = all  friendly  air  elements 
not  in  section  IASC  ? 


200 


Are  any  elements  in  IASC  currently  en- 
gaging J;  i.e. , is  MDFAF(K)  = J; 

K = IAE(l) IAE(4)  ? 


APRFCW(M)  + ARFCW8(IWC)  APRFCW(M) 


Do  any  elements  in  IASC  have  "eyeball" 
detection  of  J;  i.e.,  is  the  detection  code 
between  1 and  J a 2 for  any  1 LA  E(1 ), . . . , 1 AE(4)V 


APRFCW(M)  + ARFCWO(IWC)  > APRFCW(M) 


* 

Yes 

npTITPN  \ 

— IN  Lio  1 ( j 

No 

! , 

Set  M + 1 -»  M 


Subroutine  AIRPOR:  Continued 


Subroutine  ARISE L 


PURPOSE : Subroutine  AffiSEL  determines  an  aerial  team  to  be  assigned  for 

mission  execution. 

CALLING  SEQUENCE: 

CALL  AIRSE  L( JSA VE  .IPRMAX , INIT , IL2 , KK , KIPRS , LIST3, 
LIST4,  LIST5) 

where 

JSAVE  = best  aerial  team  found  for  assignment 
IPRMAX  = differential  priority  to  be  gained  by  assigning 
JSAVE 

INIT  = first  entry  in  LIST 3 to  be  examined 
IL2  = last  entry  in  LIST3  to  be  examined 

KK  = weapon  eode  of  requested  fire 

KIPRS  = priority  weights  (array) 

LIST3  = list  of  available  fire  support  units  (array) 

LIST4  = unit  weapon  codes  of  units  in  LIST 3 (array) 
LIST 5 = priority  of  missions  currently  assigned  to 

units  in  LIST 3 (array) 

METHOD:  See  Chapter  2 of  RF  2978  FR71-3A  (U). 

COMMON  AREAS  REFERENCED: 

TIMARR 

SUBROUTINES  REQUIRED: 

None 


B-9(> 


Subroutine  ATRSK  L:  Aerial  Unit  Seleetion 


Ii-97 


^9U«k  - 


Are  team  entries  I and  JSAVE  both  presently  per- 
forming missions;  i.e. , is 

LIST5 (I)  * LIST5( JSAVE)  > 0? 


Is  either  team  entry  I or  team  entry  JSAVE  pre- 
sently performing  a mission;  i.e. , is 
LISTS  (I)  + LIST5  (JSAVE)  >0? 


No  ( Is  team  entry  I presently  performing  a ^yes 
l mission;  i.e. , is  LIST5(I)  > 0? 


Did  team  entry  I start  to  participate  in  the  engage- 
ment earlier  than  team  entry  JSAVE ; i.e. , is 
TIMARR(LIST3(I))  < TIMARR(LIST3(JSAVE))  ? 


Record  team  entry  I as  the  best 
team  for  assignment  found  thus 
far;  i.e. , set 
JSAVE  = I 
IPRMAX  = IPRDEL 


Subroutine  AIRSEL:  Continued 


Subroutine  APPINT 


PURPOSE:  Subroutine  APPINT  is  used  to  store  and  to  retrieve  aerial 

vehicle  movement  data.  A movement  data  set  consists  of 
position,  velocity  and  acceleration  components  in  the  battle- 
field X,  Y and  Z directions. 

CALLING  SEQUENCE: 


CALL  APPINT( FLAG, TIME,  NSECL) 
where 


= 0 indicates  movement  information  is  to  be 
FLAG  retrieved  for  an  aerial  vehicle 

> 0 indicates  movement  information  is  to  be 
stored  for  an  aerial  vehicle  where  the 
number  of  the  data  set  to  lx*  stored  is 
specified  by  EliAG 

current  aerial  vehicle's  clock  time  if 
FLAG  0 

IMF  - < ciock  time  at  which  information  is  desired 
i if  FLAG  0 


NSECL  = number  of  the  aerial  vehicle's  section. 


METHOD:  During  helicopter  movement  events,  position,  speed  and 

acceleration  components  in  the  X,  Y and  Z directions  are 
stored  for  the  current  element  at  one  second  intervals.  The 
storage  arrays  are  arranged  so  that  the  present  movement 
data  set  always  appears  first  in  the  arrays.  Storage  is  accom- 
plished by  calling  subroutine  APPINT  from  the  movement  sub- 
routine APFDYS.  When  position  information  is  desired  for  a 
helicopter  that  is  not  the  current  element  (e.g. , during  air 
defense  weapon  firing  events),  subroutine  APPINT  is  used  to 
determine  interpolated  data  from  the  storage  arrays.  Accel- 
eration components  in  the  X,  V and  Z directions  are  determined 
by  linear  interpolation  while  speed  and  position  components 
are  determined  by  the  standard  relations 

V VQ  + At  and  S S()  ' Vt  + l/2At2  , 
respectively.  When  the  storage  arrays  become  full,  the  oldest 
values  are  deleted  and  the  newest  values  are  added. 


COMMON  AREAS  REFERENCED: 


COPTER 
COPPX 
COPPY 
COPPZ 

SUBROUTINES  REQUIRED: 

None 


COPAX 

COPAY 

COPAZ 

COPT 


L 


COPVX 

COPVY 

COPVZ 


A P PI  NT 


Subroutine  APPINT:  Helicopter  Movement  Interpolation 


II—  1 0 1 


Subroutine  APPINT:  Continued 
B-102 


30 


Initialize  for  search  of  time  array  to  locate 
interpolation  interval;  i.  e. , set  K 1 
Set  I = MNSEC  ' 1 


Yes  f Is  COPT(K,N)  s TIME  and 
" \ COPT(K  + 1,N)  < TIME? 


Has  the  entire  array  been  searched;  \no 
i.e. , is  K = RTSMAX  ) 


Determine  AT,  the  time  increment  within  the  inter- 
polation interval;  i.e.,  set 

DT  = TIME  - COPT(K  + l.N) 


Set  the  acceleration  values  in  the  X,  Y,  and  Z directions;  i.e. , 
set 

COPTERfI,  7,  7)  = [COPAX(K,  N)-COPAX(K+l,  N)]*TI+COPAX(K+l,  N) 
COPTERfI,  7,8)  = [COPA Y(K,  N)-COPA Y (K+l,  N)]*THCOPAY(K+l,  N) 
COPTERfI,  7,  9)  = [COPAZ(K,  N)-COPAZ(K*  1,  N)]»TI+COPAZ(KH,  N) 
where 


(COPT(K.N)  - COPT(K  + 1 , N)) 


Subroutine  APPINT:  Continued 
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Load  all  values  to  correspond  to  the  earliest  values  saved; 
i.e. , set 

COPTER(  I,  7,1)  = COPPX(K,  N) 

COPTER(  I,  7,4)  = COPVX(K,  N) 

COPTER(  I,  7,7)  = COPAX(K,  N) 

COPTER(  I,  7,2)  = COPPY(K.N) 

COPTER(  1,7,5)  = COPVY(K.N) 

COPTER(  I,  7,8)  = COPAY(K,  N) 

COPTER(  I,  7,3)  = COPPZ(K,  N) 

COPTER(  I,  7,6)  = COPVZ(K,  N) 

COPTER(  I,  7,9)  = COPAZ(K.N) 


Subroutine  A PPINT:  Continued 
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70 


Determine  the  velocity  components  of  the  aerial  vehicle;  i.e. , 
COPTER(  1 ,7,4)  = DT*COPTER(  1,  7,7)  + COPVX(K-fl , N) 
COPTER(  1 ,7,5)  = DT+COPTER(  I,  7,8)  + COPVY(K+l,N) 
COPTER(  1 ,7,C»)  = DT*COPTER(  4 7,9)  + COPVZ(K+l,N) 


Determine  the  quantity  1/2  AT^  + VT  lor  calculating  the  X,  Y, 
and  Z position;  i.e. , 

XC  . 5*COPTER(4  7,  7)*DT**2+COPTER(I,7,  4)*DT 
YC  = . 5*COPTER(I,  7,  8) * DT* *2+COPTER(I,  7,  5)*DT 
ZC  = . 5*COPTER(4  7,  9 ) * DT * *2+C OPT E R(I,  7,  (>)*DT 


Determine  whether  the  aerial  vehicle  is 
moving  in  positive  or  negative  X,  Y,  and 
Z directions;  i.e.,  is 

COPPX(K,N)  :>  COPPX(K+  1 , N)  ? 


Set  XC  = -XC 


Is  COPPY(K.N)  > COPPY(K  + 1,N)? 


Subroutine  A P PI  NT;  Continued 
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Set  YC 


-YC 


Is  COPPZ(K.N)  > COPPZ(K  + 1 , N)  ? 


Set  ZC  = -ZC 


Load  the  interpolated  X,  Y,  and  Z coordinates  for 
the  aerial  vehicle;  i.e. , set 
COPTER(  I,  7,1)  = XC  + COPPX(K+l,N) 
COPTER(I,  7,2)  = YC  + COPPY(K+ 1,N) 
COPTER(  I,  7,3)  = ZC  + COPPZ(K+l,N) 


RETURN 


Subroutine  A PPINT:  Continued 
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Subroutine  ARFO 


1 

PURPOSE:  Subroutine  ARFO  is  used  to  control  the  indirect-fire  activities 

of  launchers  and  forward  observers  in  the  presence  of  direct- 
fire  activities. 

CALLING  SEQUENCE: 

CALL  ARFO 

METHOD:  See  Chapter  9 of  Volume  1. 

COMMON  AREAS  REFERENCED: 

CF 

EC LOCK 
ICE  COM 
IFRFL 
INART 

SUBROUTINES  REQUIRED: 

ISTHFF 


KFOD  SEQ PAR 

MDFAF  SPDMU 

NSTHFF  TINIT 

NTELE  TNEUT 

NUMBER 


r 


Define 

ICE 

_ 

current  element  number 

IFUNC 

= 

function  code  for  ICE 

NUM 

= 

launcher  or  FO  number  of  ICE 

IFLE 

= 

firing  event  code  for  ICE 

ITARG 

= 

number  of  element  ICE  is  en- 

KOLOR 

- 

gaging  with  direct  fire 
force  code  for  ICE 

NTSFO 

= 

number  of  the  last  special  FO 

IF  PC 

= 

fire  position  code  for  ICE 

NTFO 

= 

clock  number  of  the  last  missile 

FINITY 

= 

arbitrarily  large  number 

CLONK 

= 

clock  time  for  ICE 

EPSILN 

= 

arbitrarily  small  number 

rrOTFO 

= 

total  number  of  FO  teams  being 

simulated 

1 

CIs  ICE  neither  a launcher  nor  an  FO  y 
team  transport;  i.e.,  is  IFUNC  = 0?/ 


Yes 


I 


No 


"^RETUR^ 


f Is  ICE  a launcher;  i.e. , isA 
IFUNC  = 1? ) 


Yes 


c 


Set  NSTHFF(NUM)  = 0 

I 

Is  NIIM  a special  FO; 
NUM  - NTSFO? 


i.e. , is~^Yes 


No 


No 


a 


NUM  an  artillery 
INART(NUM) 


ry  FO;  i.e.,'\ 

> 0?  J 


Yes 


Set  * 

I = 2 

1 

Sot  K = 1 

Set  K 

; = 3 

KSUB  = K*(KOLOR  *■  1) 


100 


Subroutine  AKFO:  launcher  and  Forward  Observer  Activity  Control 
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r* . tv  . •* 


r 


Subroutine  ARFO;  Continued 


H-110 


I 


Are  the  FO  activities  suspended;  i.e. , \Yes 
is  IFRFL(NUM)  = 1?  J 


RETURN 


Is  FO  NUM  in  a target  selection  mode; 
i.e.,  is  KFOD(NUM)  = 0? 


Is  FO  NUM  in  a fire  request  communi-^No 
cation  mode;  i.e.,  is  KFOD(NUM)  = 1?  J 


Set  flag  so  that  FO  will  not  communicate  the  request; 
i.e.,  set  TINTT(NUM)  = - FINITY 


Suspend  the  FO's  activities; 
i.e.,  set  IFRFL(NUM)  = 1 


RETURN 


Subroutine  AIIFO:  Continued 
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Compute  KSUB  = NUM  + ITOTFO 


No  f Does  ICE  have  a direct-fire  target; 
V.  i.e.,  is  MDFAF(ICE)  > 0? 


Are  the  launcher  indirect-fire  activities  sus-^^o  / 
pended;  i.e.,  is  IFRFL(KSUB)  = 1?  ) ^1  RETURN 


Set  a flag  to  return  the  launcher  to  indirect-fire 
activities;  i.e. , set  IFRFL(KSUB)  = 0 


Set  launcher’s  clock; i.e., 

E C LOC  K(NT  FB+NUMART+  NUM)  = C LONK+E  PSI 1 ,N 


RETURN 


Subroutine  ARFO:  Continued 
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Subroutine  ATAN5 


PURPOSE:  On  numerous  occasions  with  subroutine  INTELL,  it  is  desired 

to  calculate  the  angle  THETAC  from  an  observer  to  a target 
(measured  in  a horizontal  plane  and  in  a counterclockwise 
sense)  and  to  compare  deviations  of  THETAC  from  DIR  and 
from  THETAO  with  permissible  deviations,  ANGLIM  and 
CKANG,  respectively.  Subroutine  ATAN5  is  designed  to  de- 
termine THETAC  and  to  selectively  perform  the  specified 
logical  comparisons. 

CALLING  SEQUENCE: 

CALL  ATAN5  (X , Y , DIR , THETAC  , LI , L2 , KE Y) 
where 

(X,Y)  = battlefield  coordinates  of  the  target  element 

DIR  = direction  of  travel  of  the  observing  element 

THETAC  = the  angle  that  a line  from  the  observing  element 
to  the  target  element  makes  with  the  battlefield 
X axis  (measured  in  a horizontal  plane  and  in 
a counterclockwise  sense) 

logical  true/false  value  returned  to  indicate 
results  of  logical  comparisons 
TRUE  if  comparison  is  made  and  it  is  found 
that  deviation  of  THETAC  from  DIR 
is  greater  than  ANGLIM 
FALSE  otherwise 

logical  true/false  value  returned  to  indicate 
results  of  logical  comparisons 
TRUE  if  comparison  is  made  and  it  is  found 

that  deviation  of  THETAC  from  THETAO 
is  greater  than  CKANG 
FAIiJE  otherwise 


U-li:$ 


input  parameter  to  control  logical  operations 
of  ATAN5 

0 if  all  logical  operations  are  to  be  executed 
KEY  = J 1 if  angular  deviation  is  not  to  be  compared 
] with  CKANG 

2 if  angular  deviation  is  not  to  be  compared 
with  ANGLIM 

3 if  no  comparisons  are  to  be  made 

RESTRICTIONS:  See  CALLING  SEQUENCE. 

METHOD:  After  the  angle  of  the  line  from  the  observing  element  to  the 

target  element  has  been  calculated,  the  parameter  KEY  is 
examined  to  determine  what  logical  operations  are  to  be  per- 
formed. If  the  parameter  KEY  indicates  comparisons  are  to 
be  made,  a nonstandard  return  is  made  whenever  it  is  found 
that  either  of  the  angular  deviations  exceed  the  permissible 
values . 

COMMON  AREAS  REFERENCED: 

ANGLIM  JUNACT  NAVSEC 

CKANG  LWCOD  NUMBER 

ICECOM  MDFAF  THETAO 

J PHASE 

SUBROUTINES  REQUIRED: 

ATAN2 
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Subroutine  A TANS:  Angle  Comparisons  for  Subroutine  INTELI, 


15-1  IS 


Subroutine  ATAN5:  Continued 


Set  LI  = FALSE 
L2  = FALSE 


THETAO  = principle  observation  direction  as 
determined  in  subroutine  INTE  LL 
XI, Y1  = battlefield  coordinates  of  the  ob- 
serving  clement 

I . 

( Is  (X  - XI)  = 0?yi-  T1IETAC  = ARCTAN  XzlL 
Yes 

" 

Set  THETAC  = 1.57080  I 

f 

^ls  (Y  - Yl)  < 0?  ^2 ► 

Yes 

T 

I - THETAC  -THETAC  I 


£ 

KEY  = 

~3?^ 

|No 

KEY  = 

2?j 

ANGCK  = | THETAC -DIR  I 

....  I 

— — —— ^Is  ANGCK > 3.14159?^ 
[Yes 


ANGCK  - 3.14159  - ANGCK 


Subroutine  ATAN5:  Continued 
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'4k  > 


ANGCK  - 3.14159  ->  ANGCK 


Subroutine  ATAN5:  Continued 
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Subroutine  ATDEC 


PURPOSE : Subroutine  ATDEC  is  used  to  make  movement  decisions  tor  an 

aerial  maneuver  unit. 


CALLING  SEQUENCE: 

CALL  ATDEC(NAT.KDEC) 
where 


NAT 


aerial  maneuver  unit  number  for  which 
a movement  decision  is  desired 


' parameter  indicating  movement  decision  made 

0 no  decision  has  been  made 

1 unit  should  retire 

2 unit  should  seek  a defensive  position 

3 unit  should  commence  a counter- 
measure mission 

4 unit  should  terminate  its  present 
mission  and  stand  by  for  reassignment 

5 unit  should  move  its  indirect-fire 
MISTIC  loiter  station  to  a new  position 


METHOD:  See  Chapter  4.  When  the  parameter  KDEC  is  input  as  0,  the 

value  of  KDEC  may  remain  0 or  it  may  be  changed  to  1,  2,  3 
or  4.  When  KDEC  is  input  as  5,  it  may  remain  5 or  be  changed 
to  0. 


COMMON  AREAS  REFERENCED: 


DEFFCN 

IPHASE 

IUNACT 

SUBROUTINES  REQUIRED: 

FUELD 

COUNT 


LWCOD 

MCLASS 

NUMBER 


CMMIS 

MISEND 


RETFCN 


LOIMOV 


B-ll!) 


ATDEC 


Subroutine  ATDEC:  Aerial  Unit  Mission 

Termination  Decisions 


M-120 


Is  unit  waiting  olf  battlefield  for  a mission;  i.e 
is  IUNACT(NAT)  = 10  and  IPHASE(NAT)  = 0? 


Call  subroutine  FUE  LD  to  adjust  the  fuel  of  all  sections  in 
unit  NAT  and  to  remove  any  sections  having  critical  fuel 
quantities;  i.e. , call  FUELD(NAT) 


Call  subroutine  COUNT  to  determine  the  number  of  sections  in 
NAT,  the  number  of  retiring  sections,  the  number  of  defending 
sections  and  the  number  of  firing  sections;  i.e. , call 
C OU  NT  ( NA  T , IME  M , NRE  T , NDE  F , NFIR ) 


Should  the  unit  retire;  i.e. , is 
NRET 

55BT  > Retfcn(lcod)? 


Set  KDEC  = 1 to  indicate  unit 
should  retire 


RETURN 


Subroutine  ATDEC : Continued 


200 
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300 


Is  NAT  performing  a counterbattery  attack,  in- 
direct fire  MKTIC  or  a forward  observer  mission; 
i.e.,  is  IUNACT(NAT)  = 2,  5,  6,  7 or  8? ^ 


Determine  whether  unit  NAT  should  commence 
a countermeasure  mission;  i.e.,  call 
CMMIS(NAT,  ICM) 


Should  NAT  commence  a counter-  A yes 
measure  mission;  i.e.,  is  ICM  0?  J 


Set  KDEC  = 3 to  indicate  that  NAT 
should  6tart  a countermeasure 
mission 


Determine  whether  unit  NAT  should 
terminate  its  present  mission;  i.e. , 
call  MISE ND(NAT , ITE  RM) 


RETURN 


Should  the  unit  terminate  its  mis- 
sion; i.e.,  is  ITERM  > 0? 


Set  KDEC  4 to  indicate  that 
NAT  should  terminate  its  pres- 
ent mission 


RETURN 


Subroutine  ATDEC:  Continued 
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Subroutine  ATDEC : Continued 


13—124 


W.ei 


Subroutine  ATDEC : Continued 


H-125 


Subroutine  ATDKC : Continued 
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Subroutine  ATKPRM 


PURPOSE:  Subroutine  ATKPRM  records  data  to  be  used  by  the  aerial 

vehicle  firing  model. 

CALLING  SEQUENCE: 

CALL  ATKPRM(ICNT.IRS) 

where 


ICNT  = 


1 if  the  first  phase  of  an  aerial  attack 
is  being  analyzed 

2 if  the  second  phase  of  an  aerial  attack 
is  being  analyzed 


IRS  = indicator  for  the  route  to  be  selected  as 
a result  of  the  attack  (see  subroutine 
PICKRT) 

See  Chapter  (>  of  Volume  1. 


METHOD:  See  Chapter  0 ol  V< 

COMMON  AREAS  REFERENCED: 


EC LOCK 

ISORG 

LNFllt 

NTE1-E 

EVHTEM 

IUNACT 

LNUM 

NUMBER 

EORMSE 

JPIIASE 

1-RNDC 

NVOl-M 

ICECOM 

JUNACT 

LTA  RG 

SEQPAR 

IEBMIS 

KFO 

MANIIEL 

SIIBM 

IHAMO 

KFRND 

MAN  1-DR 

TDFRDY 

IHDFMC 

LF1-AG 

MANTYP 

TFLY 

IHTARG 

LFRND 

M CLASS 

THBM 

IPHASE 

LlIICE 

MDFAF 

ISACT 

LMUFL 

NAVSEC 

S REQUIRED 

AIR  FIR 

LMUSET 

SECSET 

DEEPOS 

PRMSET 

SNRC 

DELETII 

RETIRE 

TFCOMP 

II  FORM 

SECPRM 

[-LED  BY: 

IIELFIR 

LE NGTH:  1 4 EA  5354 10  bytcs 
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Subroutine  ATKPHM 


B-128 


Subroutine  ATKIMIM:  Continued 


Subroutine  ATKPRM:  Continued 
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Subroutine  ATKPRM:  Continued 


, B-131 


r r 


1 


Does  element  J have  a target  during  this 
phase  of  the  attack;  i.e. , is 
IHT1  + DiT2  + IHT3  >0? 


\No 


^250^ 


iYes 


CIs  J to 

l.e.,  i 


fire  a point  fire  weapon 
is  IHT3  > 0? 


T^jNo 


I Yes 


Set  MDFAF(J)  = IIIT3  to  indi- 
cate the  primary  target 


Set  MDFAF(J)  = I1IT1  to 
indicate  the  primary 
suppressive  fire  target 


Set  LTARG(J)  = J11T1  to  indicate) 
the  suppressive  fire  target 


Set  LTARG(J)  = IHT2  to 
indicate  the  secondary 
suppressive  fire  target 


Set  LFRND(J)  = 1 to  indicate  this  is  a first 
round  case  for  the  primary  weapon 

- 

f Is  J firing  a 

V i.e.,  is  LS 

second  weapon:  A No 

TGT  >0?  J 

) 

Yes 

Set  KFRND(J)  = 1 to  indicate  this  is  a first 
round  case  for  the  secondary  weapon 

- 

- 1 

Set  LRNDC(J)  = 1 to  indicate  that  element  J 
is  going  to  fire  in  the  first  phase  of  the  attack 

i 

Determine  launch  preparation  Ume  for  ele- 
ment J;  i.e. , call  TFCOMP(L) 

400 


Subroutine  ATKPRM:  Continued 
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Set  I FIR 

KFIREV 

LFRND(ICE) 

KFRND(ICE) 

LRNDC(ICE) 


^ 

Set  MDF  = 

MDFAF(ICE) 

J 

r 

^Did  ICE  have  a direct-fire' 
^target;  i.e. , is  MDF  > 0?^ 

Adjust  the  firers  on  MDF;  i.e. , 
LNFIR(MDF)  - 1 -»  LNFIR(MDF) 


Set  Yes/  Was  ICE  firing  weapons  at  two 

MDFAF(ICE)=LSTGT*— ■ -f  targets;  i.e. , is  LSTGT  > 0 

LSTGT  = 0 V and  LSTGT  / MDF? 

^ No 

Set  MDFAF(ICE)  = 0 
LSTGT  = 0 


Subroutine  ATKPRM:  Continued 
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Determine  the  element  in  position  I; 
i.e. , set  J = ISORG(I.ISEC) 


Set  LRNDC  ( J) 

= 0 

LNFIR(J) 

= 0 

LFRND(J) 

= 0 

KFRND(J) 

= 0 

Set  MDF  = MDFAF(J) 

-V- — ' 

f Did  J have  a direct -fire  A No 
V^target;  i.e. , is  MDF  > 0?y 

| Yes 

Adjust  the  firers  on  MDF;  i.e. , 
LNFIR(MDF)  - 1 LNFIR(MDF) 


■ 

Was  J firing  weapons  at  two 
targets;  i.e.,  is  LTARG(J)  > 0 
and  LTARG(J)  / MDF? 


No 

r 


Set  MDFAF(J)  = 0 
I LTARG(J)  = 0 I 


Subroutine  ATKPRM:  Continued 


* ■ 
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Should  the  section  retire;  i.  e.  ,\_Yes_ 
is  IR  ET  > 0 ? 


Is  a movement  decision  pending;  A No 
i.e.,  is  LMU  EL(MANUN)  - 1?  J 
^~Yes 

Should  a movement  decision  be  A No 
made;  i.e.,  is  ISACT(ISEC)  1 ? 


Yes 


Is  current  element  lead  element  of  maneuver ^ Yes 
unit;  i.e.,  is  ICE  " MANLDR(MANUN)?  J 


No 


Subroutine  ATKPRM:  Continued 
B-137 


Subroutine  ATKPRM:  Continued 


Ii-138 


s . 


Subroutine  ATKIMtM:  Continued 
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Is  maneuver  unit  a section  organization;  \ Yes 
i.  e. , is  MANTYP(MANUN)  = 1?  J 


Indicate  that  section  is  independently  seeking  a de- 
fensive position;  i.  e. , set  JUNACT(NSEC)  ; 5 


Set  flag  for  DEFPOS  indicating  that  a defensive  posi- 
tion is  to  be  determined;  i.  e. , set  KDEC  2 


Pass  DEFPOS  a negative  unit  number  to  imply  aerial 
section;  i.  e. , set  NUNIT  -NSEC  


Determine  coordinates  of  defensive  position; 
i.  e. , call  DEFPOS(NUNIT,  KDEC)  


Flag  section  as  enroute;  i.  e. , 
set  JPHASE (NSEC)  - 1 


Set  SECPRM  to  indicate  enroute  movement; 
i.  e. , set  IFTN  - 1 


Set  formation  and  speed  for  section  enroute  movement; 
i.e.,  call  SECRPM  (IFTN) 


Subroutine  ATKPRM:  Continued 
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Subroutine  ATKPRM:  Continued 


11-141 


890 


Determine  the  helicopter  number  of  ICE;  i.e. , 
set  DICE  = LHICE(ICE) 


Determine  the  targets  under  consideration;  i.e. , 
set  Dm  = IHTARG(2,IHCE) 

IHT2  = IHTARG(4,IHCE) 


Does  ICE  have  a target  during  this  phase  of  the 


attack;  i.e..  is  IHT1  + IHT2  > 0? 


Did  ICE  fire  a point  fire  weapon  in  the 
first  phase  of  the  attack;  i.e.,  is 
IHTARG(5,IHCE)  > 0?  J 


|Yes 

i 

Set  MDFAF(ICE)  = DIT1  to 

Set  MDFAF(ICE)  = IHT2  to  indi- 
cate the  suppressive  fire  target 

indicate  the  primary  sup- 
pressive fire  target 

Is  this  the  first  event  of  the 


second  phase  of  the  attack; 


is  IRS 


Set  LSTGT  = IHT2  to  indi- 
cate the  secondary  sup- 
pressive fire  target 


Set  LFRND(ICE)  = 1 to  indicate  this 
is  a first  round  case  for  this  weapon 


Set  LRNDC(ICE)  = 1 to  indicate  that 
ICE  is  going  to  fire  in  the  second 
phase  of  the  attack 
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Subroutine  ATKPRM:  Continued 


Subroutine  AVAIL 

PURPOSE:  Subroutine  AVAIL  is  called  to  determine  a list  of  fire-support 

units  available  for  mission  assignment. 

CALLING  SEQUENCE: 

CALL  AVAIL(XC,  YC,  KIASS.KL,  KU,  IL2,  LIST3,  LIST4 , 
LISTS,  ISIG) 

where 

XC,  YC  = battlefield  coordinates  of  requested  mission  target 
(input) 

1 if  artillery  is  the  class  of  fire  support 
being  considered  (input) 

2 if  MISTIC  is  the  class  of  fire  support 
being  considered  (input) 

3 if  aviation  is  the  class  of  fire  support 
being  considered  (input) 

KL  = first  unit  number  to  be  examined  for 
availability  (input) 

KU  = last  unit  number  to  be  examined  for 
availability  (input) 

IL2  = number  of  fire -support  units  found  to  be 
available  (output) 

LIST  3 = array  containing  the  available  fire-support 

unit  numbers  (output) 

LIST4  = array  containing  the  weapon  codes  of  units 
in  LIST3  (output) 

LIST5  = array  containing  priority  of  missions  currently 
being  performed  by  units  in  LIST3  (output) 

ISIG  = array  containing  information  about  the  avail- 
ability of  weapon  codes  (entry  I has  a value 
of  one  if  weapon  code  I appears  in  LIST4; 
a zero  otherwise). 

METHOD:  Artillery  and  MISTIC  units  are  available  if  their  fire  direction 

centers  are  not  processing  the  maximum  allowable  number  of 
fire  requests.  Aviation  units  are  available  il  they  are  over  the 
battlefield  and  are  not  engaged,  or  if  they  are  waiting  for 
mission  assignment  while  off  the  battlefield.  Only  one  class- 
of-fire  support  is  considered  per  call  to  subroutine  AVAIL. 
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COMMON  AREAS  REFERENCED: 

ICECOM  LWCOD  NUMBER 

IPHASE  NFR  RAM 

IUNACT  NFR  MAX  XFB 

KPRIOR  NTOBAL  YFB 

SUBROUTINES  REQUIRED: 

None 


AVAIL 


, f Is  the  unit  processing  its  maximum 
-4  number  of  missions;  i.e. , is 
NFR(I)  a NFRMAX(I)  ? 

Determine  the  weapon  code  of  the  unit;  i.e. , 
set  LWC  = LWCOD(NUMELK  + I) 


Is  the  target  within  range;  i.e. , is 
RAM2(LWC)  — (XFB(I)-XC)2+(YFB(I)-YC)2? 


Add  the  unit  to  the  available  unit  list;  i.e. , 
IL2  = IL2  + 1 
LIST3(IL2)  = I 
LIST4(IL2)  = LWC 
BIG  (LWC)  = 1 


Subroutine  AVAIL:  Determining  Available  Fire  Support  Units 


M-l  11) 


Initialize  counter  for  number  of  aerial 
teams  over  the  battlefield;  i.e. , set 
NTOB  = 0 


Is  I > KU? 


Is  team  I over  the  battlefield;  i.e. , 
is  IUNACT(I)  4 10? 


NTOB  + 1 ->  NTOB 


Is  team  I available;  i.  e.  , 
is  IUNACT(I)  = 0 or 
is  IUNACT(I)  = 9 and  IPILASE(I)  = 0 or 
is  1 s IUNACT(I)  s 8 and  IPILASE(I)  = 1? 


Add  team  I to  the  available  list;  i.e. , 

IL2  + 1 -*  IL2 

LIST3(IL2)  = I + NUMART+rrOTLN 
LIST4  (IL2)  = LWCODfl+NUMELE+NUMART+MISTUN) 
L1ST5(IL2)  = KPRIOR(I+NUMART+ITOTLN) 
ISIG(LIST4(IL2))  = 1 


Subroutine  AVAIL:  Continued 


Set  KIM  - KOLOR  + l 


Subroutine  AVAIL:  Continued 


1 


Subroutine  BFLITE 
Entry  LNBFLT 


PURPOSE: 


Subroutine  BFLITE  computes  the  position  of  a missile  at  time  T, 
for  either  a level  or  ballistic  flight  path.  The  new  missile  location 
(XM,  YM, XM1)  is  stored  in  common  MIFO,  and  the  down- range  dis- 
tance, RM1,  is  stored  in  common  OPEN,  RM1.  Entry  LNBFLT  is 
used  to  initialize  variables  for  a missile  flight. 


CALLING  SEQUENCE: 

CALL  BFLITE  or 
CALL  LNBFLT 


RESTRICTIONS:  None 

METHOD:  See  "Level  and  Ballistic  Flight,  " Chapter  2,  in  Volume  1. 

COMMON  AREAS  REFERENCED: 


LNSET 

MIDATA 

MIFO 

RM 


TYPMIS 

VM 

ZM 

ZMD 


SUBROUTINES  USED:  RGXY 
BFLITE  CALLED  FROM:  FLIGHT 
LNBFLT  CALLED  FROM:  LAUNCH 
STORAGE:  506  words 


r > 

BFLITE 

v y 


Does  the  missi 
V.  i.  e. , is  TYPM 


nissile  have  a level  flight  profile 
YPMIS(ILNNUM)  < 3? 


file,  A 


Missile  has  a ballistic  flight  profile 
Set  VM1  = missile  launch  velocity 
VM1  = VM(ILNNUM) 

ANGLCH  = launch  angle 
COSANG  = COS(NAGLCIl) 

T = elapsed  time  since  launch 

RM1  down- range  horizontal  distance 

RM1  - T-  VM1  • COSANG 

ZM1  = missile  elevation 

ZLP  = launch  point  elevation 

SMI  -4.9-  T2  i VM1  • T • SIN(ANG LCH)  *■  ZLP 


TANANG  TAN(ANGLCIl)  - 9.  8 • RM1/(VM12  • COSANG2) 
Compute  the  flight  angle  with  respect  to  a horizontal  plane 
ANGMIS  tan-1  (TANANG) 


Missile  has  a level  flight  path 

Z1  a normally  distributed  random  number  obtained 
from  subroutine  PLIGHT 
B3  missile  elevation  at  distance  point  J-l 
B3  ZM(J-l)  + Z1  • ZMD(J-l) 

Compute  down- range  distance  and  altitude  at  time  T 
RM1  - B1  • (RM(J)  - RM(J-l)  + RM(J-l) 

ZM1  B1  • (SM(J)  + Z1  • ZMD(J)  - B3)  * B3  + ZLP 


(XLP,  YLP)  launch  point  coordinates 
COSM  - cosine  of  missile  flight  direction 
SINM  sine  of  missile  flight  direction 
Compute  missile  battlefield  coordinates 
XM  XLP  + RM1  • COSM 

YM  YLP  • RM1  • SINM 


Subroutine  BP  LITE:  Missile  Position  at  'rime  T 

B-lf>3 


Subroutine  BFLITE:  Continued 
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> • ■ ■ 


Missile  can  reach  the  target 
Compute  the  launch  angle 

ANGLCH  - .5  • arcsin  (9.8  • RMO/VMl^) 
Compute  the  projected  impact  time 

RIMP  - TM  + VM1  • sin(ANGLCIl)/4. 9 


Subroutine  BFLITE:  Continued 
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A 


******* 


Subroutine  CASHEL 


PURPOSE:  Subroutine  CASHEL  is  called  after  an  air-defense  firing  event 

to  convert  lethality  codes  prepared  by  the  air-defense  model 
into  physical  damage  data  of  use  to  the  aerial  vehicle  opera- 
tions models. 

CALLING  SEQUENCE: 

CALL  CASHEL(THIT,I) 
where 

THIT  = battle  time  at  which  lethality  is  assessed,  and 
I = element  number  of  damaged  vehicle. 

METHOD:  See  Chapter  9 of  Volume  1. 

COMMON  AREAS  REFERENCED: 


FMOKIL  LTHCOD 

KILFIR  LWCOD 

LAMMO  NUMBER 

LHICE  TRET 

SUBROUTINES  REQUIRED: 

None 

CASHEL  CALLED  BY: 

ADGCON 

LENGTH:  564,  _ = 1380  bytes 

lo  10 
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M + 1 -*  M 


CASHEL 


Determine  the  helicopter  number  being  processed 
and  the  weapon  code  of  the  helicopter;  i.e. , 

NUM  = LHICE  (I) 

LWC  = LWCOD(I)  - MAXLWC 


Initialize  data  to  be  used  in  determining  the  new 
time  remaining  for  the  helicopter  and  the  extent 
of  firepower  damage;  i.e. , 

TIMR  = TRFT(NUM)  - THIT 
KAMR  = 10**(MNAMO) 




Set  M = 1 


Is  M > MAXK? 


No  f Has  lethality  code  M been  inflicted; 
V i.e.,  is  LTHCOD(M)  > 0? 


Accumulate  firepower  damage  data;  i.e. , 
KAMR  = KAMR + KILFIR(M,  LWC) 


Was  time  remaining  reduced  by  damage 
of  type  M;  i.e. , is 

FMOKIL(M.LWC)  < TIMR? 


Adjust  the  time  remaining;  i.e. , 
TIMR  = FMOKIL(M , LWC) 


Subroutine  CASIIE  L:  Lethality  Code  Conversion 
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Subroutine  CBCONT 


r ’ 


PURPOSE:  Subroutine  CBCONT  sets  flags  to  inform  the  artillery  intelligence 

center  of  the  outcome  of  a counterbattery  mission  requested 
from  an  aerial  unit. 

CALLING  SEQUENCE: 

CALL  CBCONT(NAT,N,ICNT) 
where 

NAT  = aerial  unit  that  is  involved  with  the 

mission 

' 0 if  the  mission  was  performed  by  the 

aerial  unit  or 

fire  request  list  entry  number  if  the 
mission  is  being  considered  for 
N = < assignment 

1 if  the  mission  has  been  rejected  before 
assignment 

2 if  the  mission  is  being  assigned 

3 if  the  mission  is  being  terminated 


METHOD:  See  Chapter  4 of  Volume  1. 

COMMON  AREAS  REFERENCED: 


NUMBER 

CBERR 

NVOLM 

NFOFR 

MISFRL 

YAIC 

LWCOD 

IUNACT 

EC LOCK 

YFB 

XAIC 

TMISUN 

IHCCOM 

LBTDET 

KFO 

XFB 

SUBROUTINES  REQUIRED: 
RANND 


B-l  (!0 


CBCONT ' 


Define  NAT  = aerial  unit  being  processed 

N = fire  request  entry  being  processed 
ICNT  = program  process  controller 


Determine  the  air-to-ground  radio  net  number  and  the  fire  support 
firer  number;  i.e. , 

NT  = NUMART  + MISTUN  + KP1 
NF  = NUMART  + ITOTLN  + NAT 
where  f 5 if  NAT  s NBAVT 


C 5 if 
= [ 6 if 


otherwise 


Is  a counterbattery  mission  being  possibly  re-  ^No 
jected;l.e.,  is  ICNT  - 1?  J 


Is  the  rejected  mission  a counterbattery  mission;  Ano 
i.e.,  is  NFOFR(N,NT)  > ITOTFO+2? 


RETURN 


Determine  the  battery  against  which  the  mission 
is  directed;  i.e. , set 

NBT  = NFOFR(N.NT)  - ITOTFO  - 2 


Set  IIICCOM(NBT)  = 0 to  indicate  that 
mission  was  not  completed 


Yes/'  Is  the  mission  an  observation  mission; 
l i.e.,  Is  MISFRL(N.NT)  =7? 


Set  LBTDET(NBT)  = 5 to  indicate  that 
target  was  not  attacked 


Subroutine  CBCONT:  Termination  of  Countcrbattery  Missions 


H-Hil 


Is  a counterbattery  mission  possibly  being  com-  VNo 
menced;i.e.,  is  ICNT  = 2?  / 


Is  the  new  mission  a counterbattery  mission 
i.e.,  is  NFOFR(N,NT)  > ITOTFO  + 2? 


RETURN 


Is  the  new  mission  an  observation  mission;  i.e 
is  MISFRL(N.NT)  = 7 ? 


Determine  the  battery  against  which  the  mission 
is  directed;  i.e. , set 

NBT  = NFOFR(N.NT)  - ITOTFO  - 2 


Set  IHCCOM(NBT)  = 0 to  indicate  that 
mission  has  not  been  completed 


Set  LBTDET(NBT)  = 4 to  indicate  that 
the  mission  is  being  performed 


RETURN 


Subroutine  CBCONT:  Continued 


l)-l(!2 


r ' — * — — 1 


Subroutine  CBCONT:  Continued 
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M 


D 


M 
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Subroutine  CBFIR 


PURPOSE:  Subroutine  CBFIR  determines  whether  an  aerial  section  can  fire 

upon  an  assigned  artillery  unit  target  during  a counter  battery 
attack  mission.  If  so,  parameters  of  the  attack  are  defined  and 
recorded. 

CALLING  SEQUENCE: 

CALL  CBFIR(ITGASN) 
where 


ITGASN  = 


' 0 section  should  seek  a defensive  posi- 

tion because  no  attack  can  take  place 

1 section  cannot  yet  attack  the  artillery 
unit  but  no  defense  is  required 

2 section  can  attack  the  assigned  artil- 
lery unit 


METHOD:  This  program  has  not  been  designed  in  detail.  The  calling 

parameter  is  always  returned  with  a value  of  one. 


COMMON  AREAS  REFERENCED: 


To  be  determined 


SUBROUTINES  REQUIRED: 


To  be  determined. 


Subroutine  CBOBS 


PURPOSE:  Subroutine  CBOBS  is  used  to  determine  whether  an  aerial  unit 

with  a counterbattery  observation  mission  has  successfully  ob- 
served the  assigned  artillery  unit  target. 


CALLING  SEQUENCE: 

CALL  CBOBS 

METHOD:  See  Chapter  6 of  Volume  1. 

COMMON  AREAS  REFERENCED: 

CBDET  LWCOD 

ECLOCK  MANHEL 

ETIM  NAVSEC 

ICECOM 

SUBROUTINES  REQUIRED: 

RANND 

CBOBS  CALLED  BY: 

II  EL  FIR 

2D816  = 


NUMBER 

NVOLM 

TMISUN 


LENGTH: 


728  bytes 
10 


fcBOBS 


Define  ICE 
ISEC 
MANUN 


current  element  number 
current  element's  section 
current  element's  maneuver  unit 


Determine  the  aerial  section  and  unit  numbers;  i.e. , 
set  NSEC  = NAVSEC(ISEC) 

NAT  = MAN1IE  L(MANUN) 


Determine  the  fire  support  firer  number;  i.e. , 
NF  = NUMART  + ITOTLN  + NAT 


Determine  the  aerial  unit  weapon  code;  i.e. , 
LWC  = LWCOD(NUMELE+NT)  -MWMIS 
where  NT  = NUMART  + METUN  + NAT 


Determine  the  length  of  the  last  event;  i.e. , set 
TIM  = E TIM  (ICE) 


Determine  the  constant  for  the  battery  detection 
probability  distribution;  i.e. , set 

KONS  = CBDET(LWC) 


Subroutine  CBOHS:  Aerial  Unit  Counter  battery 
( )bsorvutlon  Performance 
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Subroutine  CBOBS:  Continued 


H— 1 (it) 


Subroutine  CMMIS 

PURPOSE:  Subroutine  CMMIS  determines  whether  a specified  aerial 

vehicle  team  should  abort  its  current  mission  and  initiate  a 
countermeasure  mission. 


CALLING  SEQUENCE: 

CALL  CMMIS  (NAT,  ICM) 
where 


NAT  = 


ICM 


= < 


aerial  vehicle  unit  number 

1 NAT  should  commence  counter- 
measure mission 
0 otherwise 


METHOD: 


See  Chapter  4 of  Volume  1. 


COMMON  AREAS  REFERENCED: 


DURFB 

K PRIOR 

NOBVII 

ECLOCK 

MANLDR 

NTELE 

ICE  COM 

LDET 

NUMBER 

IMIST 

LMANU 

NVOLM 

INART 

LSEC 

XD 

JUNACT 

LWCOD 

YD 

KMANU 

NAVSEC 

SUBROUTINES  REQUIRED: 

A PRIOR 

GETDET 

i 

ELOC 

SELECA 

ERROR 

CMMIS  CALLED  BY: 


ATDEC 

LENGTH:  96816  f 24081q  bytes 
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^CMMK^ 


Subroutine  CMM1S:  Countermeasure  Mission  Decisions 


B-171 


r 

(~) 

f Is  KOLOR  = 0?  ► 

I = NUMBLU + 1 
LAST  = NUMELE 


I + 1 -*  I 


Set  I = 1 

LAST  = NUMBLU 


Initialize  the  array  LISTD;  i.e.,  set 
LISTD(J)  =0  J = 1 NUMELE 


Set  J = 0 


Determine  the  maneuver  unit  to  which  element  I 
belongs;  i.e. , set  M = LMANU(I) 


Is  M > 0? 


Yes 


Determine  the  section  and  aerial  section  to  which 
element  I belongs;  i.  e. , set  ISE  = LSEC(I) 

NSE  = NAVSEC(ISE) 


Is  NSE  operating  with  unit  NAT; 
i.e.,  is  JUNACT(NSK)  • 4? 


Add  element  I to  LISTD;  i.e. , 
J + 1 -*  J 
LISTD(J)  = I 


Subroutine  CMMIS:  Continued 
B-172 


Determine  the  weapon  code  of  aerial  unit  NAT;  i.e. , 
set  KK  = LWCOD(NUMELE  + NUMART  + MISTUN  + NAT) 


Determine  the  intelligence  available  to 
unit  NAT;  i.e.,  call  GETDET(I1STD, LDET) 


Set  IL  = 0 
I = 1 

I AST  = NUMBLU 


Is  ICE  a red  element; 
i.  e. . is  KOLOR  - 1 ? 


I NUMBLU  + 1 
I AST  NUMELE 


Was  enemy  element  I detected  by  any  observer 
element  on  LISTD;  i.  e. , is  LDET  (I)  > 1 ? 


Yes 

r 


Set  ITWT  = 0 


Determine  the  priority  weight  ITWT  of  element  I ; i.e. , 
call  A PRIOR  ( I , NFO , ITWT , KK) 


Is  the  priority  weight  zero;  i.e. , 
is  ITWT  = 0? 


Increase  potential -target  counter; 
i.e. , IL  = IL  + 1 


Add  element  I and  its  priority  to  the  potential  target 
list;  i.e. , 

LIST  (I  L)  = I 
LWTL(IL)  - ITWT 


I AST? 


Subroutine'  CMMIS:  Continued 


300 


Subroutine  C’MMIS:  Continued 


* 
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Subroutine  CNFLCT 


PURPOSE:  Subroutine  CNFLCT  is  called  to  determine  whether  a conflict 

exists  between  new  fire  requests  and  those  already  being  pro- 
cessed or  executed. 

CALLING  SEQUENCE: 

CALL  CNFLCT  (KK,  XC , YC , NCNTRL,  KOLOR,  IL1,  LIST1, 
LIST2) 

where 


METHOD: 


XC , YC 


NCNTRL 


KOLOR 


LIST  1 


LIST  2 


weapon  code  of  fire  being  requested  (input) 
position  coordinates  of  target  reported  in 
the  fire  request  (input) 
number  of  the  unit  whose  current  fire 
requests  and  missions  in  progress  are  to 
be  examined.  If  zero,  all  fire-support 
units  will  be  examined  (input) 


0 if  the  fire  request  was  initiated  by  a 
member  of  the  blue  force  (input) 

1 if  otherwise  (input) 


the  number  of  current  requests  and  mis- 
sions that  conflict  with  the  new  fire  re- 
quest (output) 

array  containing  unit  numbers  with  con- 
flicting requests  or  missions  in  progress, 
A negative  valued  entry  indicates  the  mis- 
sion is  in  progress  (output) 

array  containing  the  positions  of  the  con- 
flicting fire  requests  on  the  unit's  fire- 
request  lists  (nonzero  only  for  positive 
entries  in  LIST2)  (output). 


If  NCNTRL  is  zero,  all  artillery  and  MISTIC  fire  direction 
center  fire-request  lists  will  be  examined  for  conflicts.  Then 
the  missions  being  executed  by  all  artillery  firing  batteries, 
MISTIC  launchers  and  aerial  teams  will  be  examined.  If 
NCNTRL  is  positive,  the  fire-request  list  for  artillery  or 
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*> 


MISTIC  unit  NCNTRL  will  be  examined,  followed  by  an  exami- 
nation of  the  mission  or  missions  currently  being  executed  by 
the  firer  or  firers  of  the  unit.  A conflict  exists  if  the  requested 
target  coordinates  are  in  close  proximity  to  an  existing  target. 

COMMON  AREAS  REFERENCED: 


IFBMIS 

RSAME 

NMISUN 

XD 

NUMBER 

XFRL 

LWCOD 

YD 

NFR 

YFRL 

MISTYP 


SUBROUTINES  REQUIRED:  None 


11-170 


Subroutine  CNFLCT:  Determining  Existence  of  Conflicts 


11-177 
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m 


Initialize  request-list  counter; 
i.e. , set  J = 1 


Is  J > NFR(I)? 
I No 


Subroutine  CNF1.CT:  Continued 
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Set  IA  = NUMART  + MISTUN  + KOLOR  + 5 


Set  J 


r 

= i 
i 

1 

J > NFR(IA)  ? ^ 

1 Yes 

Set  XT  = XFRI,( J,  1A) 
YT  = YFRL(J,  IA) 


Determine  R = V (XT  - XC)2  + (YT  - YC)2 


Set  KTYPE  = MISTYP(J,  IA) 


Is  R < RSAME(KK,  KTYPE)? 

' 

IL1  + 1 - IL1 
LISTl(ILl)  = IA 
LIST2(IL1)  = J 


Subroutine  CNFLCT:  Continued 


II— 1 7?) 


35 


Subroutine  CNFLCT:  Continued 


L 


/.nr 


Subroutine  CNI'LCT:  Continued 


m-ihi 


120' 


No  f la  the  request  for  artillery  support;  \Ves 
l.e. , Is  NCNTRL  £ NUMART?  J 


Is  FO  a member  of  the 
red  force;  f.e. , is 

ICO  LOR  > 0? 

“lYes 


Does  the  unit  have  a target; 
l.e..  Is 

IFBMIS(NCNTRL)  > 0? 


Set  K = 1 

L=  NBLULN 


Set  K = NBLULN +1 
L = ITOTLN 


Determine  coordinates 
of  the  target;  i.e. , set 
XT  = XD(NCNTRL) 

YT  = YD(NCNTRL) 


RETURN 


Is  K > L?  J- 
' [No 


RETURN 


f Is  launcher  K a member  of  A 
I unit  NT;  i.e. , is  J 

NMISUN(K)+NUMART=NCNTRL?/ 

Yes 



/ Does  launcher  K have  a mission; 

i.e.,  is 

V IFBMIS(K+NUMART)  >0?  J 
|Yes 

Determine  coordinates  of  target; 
l.e.,  set 

XT  = XD(K+ NUMART) 

YT  * YD(K+NUMART) 

i . — 

Determine  distance  from  (XC,YC) 

to  (XT.YT);  l.e., 

R - ~\/(XC-XT)2+(YC-YT)2  

No/'  Does  a conflict  exist;  i.e.,  ispfgi 
v R < RSAME(KK,  KK)  ? J 


Determine  distance  from 
(XC.YC)  to  (XT.YT);  i.e., 

R =\J  pCC-XT)2+(YC-YT)2 

T_r 

Does  a conflict  exist;  i.e. , iNo 
is  R < RSAME(KK , KK)  ? y 

[Yes 


Set  flag  to  Indicate  that  a 
conflict  exists;  i.e. , set 
IL1  * 1 

- 

RETURN 


Set  flag  to  indicate  that  a conflict 
exists;  l.e.,  set  IL1  = 1 


Subroutine  CNFLCT:  Continued 
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Subroutine  ('NKI.CT:  Continued 


n-i  s:t 
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Subroutine  CNTOUT 


PURPOSE:  Subroutine  CNTOUT  determines  the  number  of  surviving  de- 

tected enemy  elements  and  the  number  of  surviving  friendly 
elements  at  a specified  outpost. 

CALLING  SEQUENCE: 

CALL  CNTOUT (KEDS.KFS.NOUTP) 

where 

KEDS  = number  of  enemy  survivors  detected  by 
the  current  element  (integer) 

KFS  = number  of  friendly  survivors  at  the  outpost 
(integer) 

NOUTP  = number  of  the  outpost  occupied  by  the 
current  element. 

METHOD:  See  Chapter  9 of  Volume  1. 

COMMON  AREAS  REFERENCED: 

ICECOM  LMANU  NUMBER 

LDET  MANEUV 

LKILL  NOUTFG 

SUBROUTINES  REQUIRED: 


None 


Subroutine  CNTOUT:  Computing  Outpost  Survivors 
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Yes 


Increment  friendly  survivor  counter; 
i.e.,  KFS  + 1 - KFS 


Subroutine  CNTOUT:  Continued 
B-18G 
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Subroutine  CONYRT 

PURPOSE:  Subroutine  CONVRT  is  used  to  transform  data  coming  from  the 

aerial  target  selection  model  into  data  that  is  more  usable  in  the 
aerial  firing  model. 

CALLING  SEQUENCE: 

CALL  CONVRT 

METHOD:  See  Chapter  (>  of  Volume  1. 

COMMON  AREAS  REFERENCED: 

ICECOM  LI1ICE 

I11TARG  KELAGN 

1 1 LA  MO  KAMAVL 

ISORG 

SUBROUTINES  REQUIRED: 

None 


Subroutine  CONVRT:  Aerial  Section  Firing 

Data  Conversion 
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r 


Subroutine  CONVRT:  Continued 
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Subroutine  COUNT 


PURPOSE:  Subroutine  COUNT  is  used  to  determine  the  number  of  sections 

in  an  aerial  unit,  the  number  of  sections  currently  engaged  in 
some  type  of  firing  activity,  the  number  of  sections  retiring 
independently  of  the  unit  and  the  number  of  sections  seeking 
defensive  positions  independently  of  the  unit. 

CALLING  SEQUENCE: 

CA LL  COUNT(NAT ,IMEM, NRET ,NDE F, NFIR) 
where 


NAT 

IMEM 

NRET 

NDEF 

NFIR 


number  of  aerial  maneuver  unit  being 
processed 

number  of  sections  in  the  maneuver  unit 
number  of  sections  retiring  independently 
number  of  sections  seeking  defensive 
positions  independently 
number  of  sections  with  direct  or  indirect 
firing  assignments  or  with  requests  for 
indirect  fire  support 


See  Chapter  4 of  Volume  1. 
COMMON  AREAS  REFERENCED: 


METHOD: 


IPORG 
ISORG 
ITORG 
IUNACT 
J PHASE 


JUNACT 

KFOD 

KMANU 

LNUM 


MANORG 

MANTYP 

MISFO 

NAVSEC 


SUBROUTINES  REQUIRED: 


None 
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Determine  the  section  occupying  position  J in  platoon 
NPT ; i.e. , set  EE  = IPROG(J,  KPT) 


Is  EE  = 0? 


Increment  the  member  counter;  i.c. , 
IMEM  + 1 -*  IMEM 


Determine  the  aerial  section  number  for  section  EE; 
i.c.,  set  NSE  = NA VS EC  (EE) 


CIs  NSE  firing  on  a target;  i.e. , is 
JUNACT(NSE)  = 2 and 
JPHASE(NSE)  = 0? 


Is  unit  NAT  acting  as  a forward  observer  unit;  i.e. , 
is  IUNACT(NAT)  = 8 or  6?  , 


Determine  the  leader  of  section  EE ; 
i.e.,  set  LDR  = ISORG(l.EE) 

I 

Determine  the  FO  number  of  LDR; 
i.e.,  set  NUM  = LNUM(LDR) 

i 

Is  NUM  actively  engaged  with  a targot;  I.e. . is  ANo 
KFOD(NUM)  = 2,  3,  or  5 and  MEFO(NUM)  = 1?/ 


Increment  the  finer  counter;  i.e. , 
NFIR  + I - NFIR 


Subroutine  COUNT:  Continued 
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’T'lsH 


Subroutine  COUNT : Continued 
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Subroutine  CRTLOC 


PURPOSE:  Subroutine  CRTLOC  determines  the  battlefield  X-Y  coordinates 

of  a route  selection  grid  point  for  a dismounted  crew-served 
weapon  unit. 

CALLING  SEQUENCE: 

CALL  CRTLOC(I,  J,  XIJ,  YIJ,  SINAR,  COSAR) 
where 

(I,  J)  = designator  of  the  route  selection  grid  point  for 
which  the  battlefield  X-Y  coordinates  are  to  be 
determined 

(XIJ,  YIJ)  = the  X-Y  battlefield  coordinates  of  grid  point  (I,  J). 

SINAR  = sine  of  the  angle  between  the  current  element's 
battlefield  coordinates  and  the  coordinates  of  the 
primary  desired  firing  position. 

COSAR  = cosine  of  the  angle  between  the  current  element's 
battlefield  coordinates  and  the  coordinates  of  the 
primary  desired  firing  position. 

RESTRICTIONS:  Subroutine  CRTLOC  is  called  only  from  subroutine  CSRTSL. 
METHOD:  See  Chapter  5 of  Volume  2,  RI-  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RE  2376  FR-2  (U). 

SUBROUTINES  REQUIRED:  None 

COMMON  AREAS  REFERENCED:  CSWDE1,  CSWIND 

STORAGE:  25Ajj;  G02jq  bylcs 
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Subroutine  CRTLOC : 


Crew-Served  Weapons - 
Grid  Coordinates 


-Route  Selection 


B-196 
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Subroutine  CSMOVK 


PURPOSK:  Subroutine  CSMOVK  determines  the  eoordinates  of  the  loeation 

to  which  a dismounted  crew-served  weaj>on  unit  moves  during 
an  event. 

CALLING  SEQUENCE: 

CALL  CSMOVE 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 
SUBROUTINES  REQUIRED: 


CSTIME 

PDPGET 

ELVATE 

PDPSET 

E RROR 

RGXY 

COMMON  AREAS  REFERENCED: 

O'CLOCK 

EC LOCK 

KLCPE 

CSWDF1 

EDIR 

KSA  LT 

CSWIND 

ELOCX 

KSMAKE 

CSXRT 

ELOCY 

KSWIICII 

CSYRT 

ESPD 

LDPC 

CXCUR 

EVBAR 

MOV  PAR 

CYCUR 

ICECOM 

CSMOVE  CALLED  BY: 

CSWCON 

MOUNT 

STORAGE:  DBA]fi 

8f)1410  bytes 
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Is  CDMCP  approximately  zero; 
i.  e.  , is  CDMCP  < EPDIS? 


Subroutine  CSMOVK:  Crew-Served  Weapon  Movement  Model 

(Dismounted  Mode) 
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Subroutine  CSMOVE:  Continued 
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Subroutine  CSMOVE:  Continued 
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r~  T 


Subroutine  CSMOVE:  Continued 


1 


* 

9 


n- 201 


*•  x> 


Did  unit  NCR  reach  a primary  or  alternate 

firing  position;  i.  e. , is 

KSALT(NCR)  = 2 or  KSMAKE(NCR)  ^2? 


ESPD(KCE) 

LDPC(KCE) 


ESPD(KCE)  - EVBAR(KCE) 
LDPC(KCE)-  0 


Subroutine  CSMOVE:  Continued 
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Subroutine  CSMOVE:  Continued 
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Subroutine  CSNBOR 


PURPOSE:  Subroutine  CSNBOR  determines  the  grid  point  designator  (M,N) 

of  the  K1-*1  neighbor  point  of  grid  point  designator  (I,  J). 

CALLING  SEQUENCE: 

CALL  CSNBOR(I,  J,  M,  N,  K) 

where 

(I,  J)  = the  designator  of  the  grid  point  for  which  the  K1^ 
neighbor  is  being  determined; 

(M,  N)  = the  designator  of  the  K^1  neighbor  grid  point  of 

(I,  J)  • 

RESTRICTIONS:  Subroutine  CSNBOR  is  called  only  from  CSRTSL. 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 
SUBROUTINES  REQUIRED:  None 
COMMON  AREAS  REFERENCED:  None 
STORAGE:  29A1(,  - 6661()  bytes 
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Subroutine  CSNBOR:  Crew -Served  Weapons- -Route  Selection 

Grid  Neighbor  Points 


THl+X*  , 


Subroutine  CSRTSL 


PURPOSE:  Subroutine  CSRTSL  determines  the  optimal  route  for  a dis- 

mounted crew-served  weapon  unit  from  the  dismount  point  to 
the  primary  desired  firing  position. 

CALLING  SEQUENCE: 

CALL  CSRTSL(XDF,  YDF,  JRMAX) 
where 

(XDF,  YDF)  = coordinates  of  the  location  of  the  primary 
desired  firing  position  for  the  dismounted 
CSW  unit. 

JRMAX  = number  of  columns  in  fire  position  selection 
grid. 

RESTRICTIONS:  Subroutine  CSRTSL  is  called  only  from  subroutine  CSWGRD. 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 


COMMON  AREAS  REFERENCED: 


CSDEE 

CSYRT 

ICECOM 

TC 

CSDSP 

EC 

LDET 

TEC 

CSWDF1 

EC LOCK 

LKILL 

TEW 

CSWIND 

EMICR 

LWCOD 

TGTDIM 

CSXRT 

HCREW 

SC 

SUBROUTINES  REQUIRED: 

CRTLOC 

ELOC 

CSNBOR 

LOSS 

CSTCDF 

STORAGE:  38D416  = 14548io  bytes 


2 2 


CSRTS1 


Subroutine  CSIITSL:  Crew-Served  Weapons  Route  Selection 
Model  (Dismounted  Mode) 

B-207 


A 


Is  K = KL? 


Yes 


Subroutine  CSHTS1,:  Continued 
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Set  M 

= IFEELE 

« 

Has  enemy  element  M been 
detected  by  crew-served  weapon 
unit,  NCR,  i.  e.  , 

is  LDET(M)  > 0? ^ 

Yes 


Has  M suffered  firepower  or 
total  kill;  i.  e.  , 

is  LKILL(M)  > 1 ? 


=-^-^Is  CEDIS  --  TEW(KT)  ? 

Yes 

. * 

No  ( Does  a line  of  sight  exist  to 

1 enemy  element  M ? 


r No 

Is  M - ILEELE?^— — 

-*  M + 1 

* M - 

Subroutine  CSRTSI,:  Continued 
H-20J) 
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Determine  coordinates  (XU,  YU)  of  grid 
point  (I,  J);  i,  e. , 

call  CRTLOC(I,  J,  XIJ,  YU  , SINAR,  COSAR 


1 


* 


Subroutine  CSRTSL:  Continued 
B-210 


Si 


Compute  [CSXRT(I,  NCR),  CSYRT(I,  NCR)],  the  coordinates 
of  the  complete  minimum  difficulty  route  to  grid  point 
(IRMAX,  JC); 
where: 

IAST  ~ coordinates  of  the  dismount 
point  (XC,  YC)  for  the  CSW 
unit,  corresponding  to  route 
I = selection  grid  point  (IC,  JC); 

1 ~ coordinates  of  the  final  point 
or  the  route  (XDF,  YDF) 
corresponding  to  grid  point 
(IRMAX,  JC) 


Subroutine  CSRTSL:  Continued 
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Subroutine  CSTCDF 


Ifc 


PURPOSE:  Subroutine  CSTCDF  determines  the  tactical  difficulty  of  a route 

between  two  specified  route  selection  grid  points  for  a dismounted 
crew-served  weapon  unit. 

CALLING  SEQUENCE: 

CALL  CSTCDF(M,  N,  XM,  YM,  XIJ,  YU,  DIFF) 
where 

(M,  N)  = the  designator  of  the  route  selection  grid 

point  to  which  the  difficulty  of  the  route  is 
being  computed; 

(XM,  YM)  = the  coordinates  of  grid  point  (M,  N); 

(XU,  YU)  = the  coordinates  of  the  grid  point  of  the  route 

selection  grid  from  which  the  difficulty  of 
the  route  is  being  computed; 

DIFF  = the  tactical  difficulty  of  the  route  from 

(XIJ,  YU)  to  (XM,  YM). 

RESTRICTIONS:  Subroutine  CSTCDF  is  called  only  from  subroutine  CSRTSL. 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 


SUBROUTINES  REQUIRED: 

CSTIME 

PDPGET 

PDPSET 

COMMON  AREAS  REFERENCED:  EC  DWC 

STORAGE:  382lg  = 898^  bytes 
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1 

3 


r > 


Subroutine  CSTCDF:  Crew-Served  Weapon  Route  Selection  IMflleully 

B-215 
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f 


Subroutine  CSTIME 

PURPOSE:  Subroutine  CSTIME  determines  the  travel  time  TRTIME  for  a 

dismounted  CSW  unit  with  weapon  code,  NKWEP,  to  travel 
from  (XC1,  YC1)  to  (XC2,  YC2) 

CALLING  SEQUENCE: 

CALL  CSTIME (XC1,  YC1,  XC2,  YC2,  TRTIME,  XDIF) 
where 

(XC1,  YC1)  = coordinates  of  initial  point; 

(XC2,  YC2)  - coordinates  of  final  point 

TRTIME  - time  to  travel  from  (XC1,  YC1)  to  (XC2,  YC2) 

XDIF  - distance  between  (XC1,  YCl)  and  (XC2,  YC2)  in  the 
X-Y  plane 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U), 
SUBROUTINES  REQUIRED: 

ELVATE 

COMMON  AREAS  REFERENCED: 

CSWDF1  XCSWIN 

CSWIND  YCSWIN 

CSTIME  CALLED  BY: 

CSMOVE  CSTIME  MOUNT 

STORAGE:  45Alfi  = 111410  bytes 
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CSTIME 


Is  angle  TIIATA  steeper  than  any 
grade  angle  in  the  XCSWIN  array; 
i.  e. , is  TIIATA  > XCSWIN(INCMAX)J?/ 

[“No 


RETURN 


Is  TIIATA  in  the  range  of  the  table; 
i.  e. , is  TIIATA  > XCSWIN(l)? 

No 



Use  first  limiting  speed  in  table 
CVUIM  YCSWIN(1,  NEWER) 


Subroutine  CSTIME:  Crew-Served  Weapons — 1’ ravel  Time 
Determination  (Dismounted  Mode) 
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Determine  KA  from  the  XCSWIN  array 
such  that 


XCSWIN(KA)  £ THATA  < XCSWIN(KA  *■  1) 


Subroutine  CSTEME:  Continued 
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i 
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Subroutine  CSWCAS 


PURPOSE:  To  assess  casualties  against  crew -served  weapons  and  crew- 

served  weapon  carriers,  and  to  update  the  corresponding  force 
structures . 


CALLING  SEQUENCE: 

CALL  CSWCAS(ICAS , KILL) 
where: 

ICAS  = casualty  element  number 


0,  no  kill 

1 , mobility  kill 

KILL  = 2,  firepower  kill 

3,  mobility  and  firepower  kill 

4,  complete  lull 


DEFINITION  OF  VARIABLES: 
LCSWFN(I) 


crew-served  weapon  function  code  for  DYNTACS 
element  I,  where: 


2 if  element  I is  a CSW  crew 
LCSWFN(I)  1 if  element  I is  a CSW  carrier 
0 otherwise 


LCREW(I) 


crew -served  weapon  status  code,  where: 


0~  crews  in  section  I are  mounted 
_ . 1~  crews  in  section  I are  to  dismount 
I 2~  crews  in  section  I are  dismounted 
3~  crews  in  section  I are  to  mount 


METHOD:  See  Chapter  9 , Volume  1,  RF  2376  FR  69-1  (U). 

COMMON  AREAS  REFERENCED: 


EC LOCK 
ICECOM 
ISOKG 
KSDSMT 


KSWIICII 
LCUEW 
I, CSW  EN 
I, KILL 


US  EC 
SEQI'AR 
I’M  NT  I) 
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LL 


SUBROUTINES  REQUIRED: 

CASELE 

CSWCON 

GETICE 

PUTICE 

CSWCAS  CALLED  BY: 

MAIN  PROGRAM 
LENGTH:  5I416  = 130010  bytes 
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Subroutine  C'SWC'AS:  Assess  Casualties 
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•ST r >.*>n  • - 


A 


Set  LA  PC  = KSWHCH(ICAS) 


I 


( Is  TMNTD(LAPC)  = 0?^V 

^ |No  ^ 


Yes 


Set  TIMN  = ECLOCK(ICAS) 

I 


GK  Is  LCSWFN(ICAS+ K)  - 2?  ) 

^YeS 


0 


TIMN  + EPSLIN  -»  TIMN 

I 

Is  LKILL(ICAS  + K)  > 3? 


> 


Yes 


No 


Set  ECLOCK(ICAS  + K)  - TIMN 


No 


( Is  K - 3?  J 


Yes 


Subroutine  CSWCAN:  ('onttnuod 
11-222 


Set 

LCREW(ISEC)  = 1 


KSDSM  T ( LA  PC ) = 0 


Set  K - 1 

Set 

ICKTMP  - ICE 


Is  ICAS  a crew-served  weapon; 
i.  e. , is  LCSWFN(ICAS)  - 2? 


Set  ISRG  - element  number  of 
section  leader 
= ISORG(l,  ISEC) 


Is  ICAS  the  last  surviving  crew 
in  the  section;  i.  e. , 

is  ISORG(2,  ISEC)  = 0? 

Yes 


Set  flag  to  indicate  vehicle  reverts 
to  activities  indicated  by  its 
weapon  code;  i.  e. , LCSWFN(ISRG)  - 0 


Subroutine  CSWCAS:  Continued 
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Subroutine  CSWCON 

PURPOSE:  Subroutine  CSWCON  controls  the  activities  of  dismounted  crew- 

served  weapon  units  related  to  selection  of  attack  or  defense 
mode  deployment,  selection  of  desired  firing  positions,  route 
selection,  and  movement  to  desired  firing  positions  in  the  dis- 
mounted mode. 


CALLING  SEQUENCE: 

CALL  CSWCON  (IGO,  TIME) 


where 

IGO  flag  returned  indicating  whether  carrier  firing  and/ or 
movement  is  to  be  allowed. 

0 no  movement  or  firing  allowed 

1 firing  allowed 

2 movement  allowed 

3 both  firing  and  movement  allowed 

TIME  = time  increment  to  be  added  to  the  carrier's  clock 


SUBROUTINES  REQUIRED: 


CSWGRD 

MOUNT 

CON 

IDET 

CSMOVE 

COV 

RGXY 

ERROR 

ELOCP 

ELOC 

SET  LOS 

IDETP 

COMMON  AREAS  REFERENCED: 

ANGSEC 

DIRMU 

KSDECN 

LCSWTP 

RMIN 

CCLOCK 

DISMTT 

KSDSMT 

LDET 

NRDCNT 

CSWDF1 

EC LOCK 

KSMAKE 

LDPC 

TMNTD 

CSWIND 

ELOCX 

KSMVT 

LKILL 

XDF 

CSXRT 

ELOCY 

KSWHCH 

LTARG 

YDF 

CSYRT 

ICECOM 

LAPCCW 

MDFCSW 

XDFA 

CXCUR 

KLCPE 

LCREW 

MFCSW 

YDFA 

CYC  UR 

KSALT 

LCSWFN 

NTOT 

CSWCON  CALLED  FROM: 

CSWCAS, 

MAIN 

STORAGE:  1794],;  G03G  1(}  bytes 
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'SWCO 


Set  XC 

XI 

YC 

YI 

ICO 

0 

Is  ICE  a carrier;  i.  e 
is  LCSWFN(ICE)  1 


Yes 

I 


Determine  APC  number  and  number  of  crews  assigned 
LAPC  KSWIICH(ICE) 

NCTOT  NTOT(EAPC) 


Are  there  any  crews  assigned 
or  remaining;  i.  e. , is  NCTOT  > 0 ? 


Are  the  crews  in  the  process  of  returning  to  or 
mounting  the  APC;  i.  e. , is  TMNTD(LAPC)  > 0 
and  is  TMNTD(IxAPC)  > ECLOCK(ICE)? 


If  crews  are  mounted  are  they  to  remain 
mounted;  i.  e. , is  LCREW(ISKC)  0? 


Yes 


Set  crews  positions  to  AI’Cs  coordinates  for  all  crews 
that  are  not  casualties 

CALL  ELOCP(NCK,  XC,YC) 
where  NCR  is  each  crew  on  APC  and  XC,  YC  are  the 
A PC's  coordinates 


Subroutine  CSWCON:  Crew-Served  Weapon  Activity  Controller 
(Dismounted  Modi') 


B-22.r> 


Allow  APC  to  move 
Set  IGO  - 2 


Can  APC  fire  with  crews  mounted;  \Y£S_ 
i.  e. , is  MFCSW(LAPC)  ^ 1?  J 


Set  IGO  3 


RETURN 


If  crews  are  mounted,  are  they  directed  \ ^es 
to  dismount;  i.  e. , is  LCREW(ISEC)  - 1 1 J 

| No 

Are  crews  to  remain  dismounted;  i.  e. , \No_ 
is  LCREW(ISEC)  - 2?  J 


Set  IGO  - 2 


Can  the  APC  fire  with  its  crews  dismounted; 

i.  e.,  is  MDFCSW(I-APC)  - 1?  J J 

No  f~ 1 

Set  IGO 

[return] 


Subroutine  CSWCON:  Continued 
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Subroutine  CSWCON:  Continued 


H-22!) 


1 


I 


Subroutine  CSWCON:  Continued 


Is  the  sector  of  responsibility,  ANGSEC(LAPC), 
for  carrier,  LAPC,  non-negative;  ;i.  e. , 


Sburoutine  CSWCON:  Continued 
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i 

\ 


Subroutine  CSWCGN:  Continued 
B-232 


J* 


w 


* 


Subroutine  CSWCON:  Continued 
B-234 


A 


/ •;*  . w 


Subroutine  CSWCON:  Continued 
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500, 


Is  NCR  to  move  in  this  event,  i.  e. , 
is  KSMAKE(NCR)  = 1 or 
KSALT(NCR)  = 1? 


Set  allotted  event  time;  L e. , 
CTIME  = CEVTEM 


Determine  [CXCUR(NCR),  CYCUR(NCR)], 
the  coordinates  of  the  location  to  which  unit 
NCR  moves  in  the  current  event;  i.  e.  , 
CALL  CSMOVE 


TIME  - CCLOCK(NCR)  - ECLOCK(ICE) 


Is  NCR  at  its  primary  firing  position;  i.  e. , A 
is  KSMAKE(NCR)  * 2 ? J 

| No 

Is  NCR  at  its  alternate  firing  position;  i.  e.  ,Ano 
is  KSALT(NCR)  2?  JH 


RETURN 


Set  LDPC(ICE)  = 


IGO  = 


RETURN 


es  f Is  NCR  to  remain  at  its  current  firing 
position;  i.  e.  , is  KSMVT(NCR)  = 0 ' 


Has  NCR  fired  its  specified  number  of  rounds 
at  its  current  position;  i.  e. , 
is  NRDCNT(NCR)  KSMVT(NCR)  ? 


IGO  = 0 


Is  NCR  currently  at  its  primary  firing 
position;  i.  e.,  is  KSMAKE(NCR)  -2? 


Set  KSMAKE(NCR)  = 1 

CSXRT(1,  NCR)  = XDF(NCR) 
CSYRT(1,  NCR)  = YDF(NCR) 
CSXRT(2,  NCR)  = XDFA(NCR) 
CSYRT(2,  NCR)  = YDFA(NCR) 
KLCPE(NCR)  = 1 


Set  KSALT(NCR)  = 1 

CSXRT(1,  NCR)  = XDFA(NCR) 
CSYRT(1,  NCR)  = YDFA(NCR) 
CSXRT(2,  NCR)  = XDF(NCR) 
CSYRT(2,  NCR)  = YDF(NCR) 
KLCPE(NCR)  = 1 


Subroutine  CSWCON:  Continued 
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Subroutine  CSWDES 


PURPOSE:  Subroutine  CSWDES  determines  the  desirability  of  a specified 

point  in  the  fire  position  selection  grid  for  a dismounted  crew- 
served  weapon  unit. 

CALLING  SEQUENCE: 

CALL  CSWDES(M,  N,  DESIR,  CDELX,  CDELY,  SINANG,  COSANG, 

XT,  YT) 

where 

(M,  N)  = the  designator  of  the  grid  point  for  which  the 
desirability  is  being  determined; 

DESIR  = the  desirability  of  grid  point  (M,  N)  as  a firing 
position  for  a dismounted  CSW  unit. 


CDELX,  CDELY  = the  X and  Y distance,  respectively,  of  the 
distance  from  the  maximum  effective  range  of  the 
CSW  unit  weapon  to  the  threat  location; 

1 


SINANG,  COSANG  = the  sine  and  cosine,  respectively,  of  the 
angle  in  the  X-Y  plane  between  the  CSW  unit's 
current  location  and  (XT,  YT);  and 


XT,  YT  = coordinates  of  the  location  of  the  enemy  threat 
position  for  the  CSW  unit. 

RESTRICTIONS:  Subroutine  CSWDES  is  called  only  from  subroutine  CSWGRD. 


METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 


DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 


SUBROUTINES  REQUIRED:  CXYLOC  LOSCMP 

COMMON  AREAS  REFERENCED: 


CSWDF1 

cw 

RXFIRE 

CSWIND 

HCREW 

RYFIRE 

STORAGE: 

4BE16  = 

121410  bytes 
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A 


Subroutine  CSWDKS:  Crew-Served  Weapons— Fire  Positon 

Desirability  (Dismounted  Mode) 
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i 
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Compute  TGCOV,  the  percent  of  the 
threat  position,  (XT,  YT)  covered 
relative  to  (XU,  YIJ);  i.  e. , 

TGCOV = LOSCMP(XU,  YU, XT,  YT,  HCREW(NKWEP), 

3.,  0.  .0. . FALSE.) 


Compute  CSWCO,  the  percent  of  the 
crew,  if  located  at  (XU,  YU),  covered 
and/or  concealed  relative  to  (XT,  YT);i.  e. , 

CSWCO=  LOSCMP(XT,  YT,  XU,  YU,  3. , HCREW(NKWEP), 

0.,  0,  . FALSE. 


Compute  DESIR,  the  desirability  of  grid  point  (XU,  YU)  as  a firing 
position;  i.  e. , 

DESIR  = [CW(1)  ] • [l  - TGCOV ] + [CW(2)  ] • [CSWCO]  + [CW(3)  ] • [RFl] 


RETURN 


Subroutine  CSWDES:  Continued 


Subroutine  CSWGRD 

PURPOSE:  Subroutine  CSWGRD  determines  the  primary  and  alternative 

firing  position,  and  the  optimal  route  to  the  primary  firing 
position,  for  a dismounted  crew-served  weapon  unit. 

CALLING  SEQUENCE: 

CALL  CSWGRD(XT,YT,  WIDTH) 

where 

(XT,  YT)  = coordinates  of  the  location  of  the  enemy  threat 
position  for  the  CSW  unit, 

WIDTH  - width  of  fire  position  selection  grid. 

RESTRICTIONS:  Subroutine  CSWGRD  is  called  only  from  subroutine  CSWCON. 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DEFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

SUBROUTINES  REQUIRED: 

CSRTSL  LOSCMP 

CSWDES  MXDSR 

CXYLOC 

COMMON  AREAS  REFERENCED: 


CSWDF1 

CYCUR 

KSDECN 

XDF 

CSWIND 

DCW 

LAPCCW 

XDFA 

CSXRT 

HCREW 

RMAX 

YDF 

CSYRT 

KLCPE 

RMIN 

YD  FA 

CXCUR 


STORAGE:  l9EO,„  - 636H  bytes 

16  10 


Compute 

SINANG  = sin(ANGLE) 
COSANG  = cos(ANGLE) 


Subroutine  CSWGRD:  Eire  Position  Determination 

(Dismounted  Crew-Served  Weapons) 
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Subroutine  CSWGRD:  Continued 
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Set  CDELX  = 0 
CD ELY  = 0 


Determine  desirability,  DESER, 
of  grid  point  I,  J;  i.  e.  , 

CALL  CSWDES(I,  J,  DESIR,  CDELX,  CDELY, 
SINANG,  COSANG. XT.  YT) 


150 


Was  an  acceptable  (I,  J)  grid  point  foundN  No 
in  the  DESIRE  array  ? J 


Compute  coordinates  (XTEM,  YTEM)  of  grid 
point  (ITEM,  JTEM);  i.  e.  , 

CALL  CXYLOC(ITEM,  JTEM,  XTEM,  YTEM,  CDELX,  CDELY. 

SINANG,  COSANG) 


Compute  distance,  DTEM,  i.  e. , 

DTEM  = VIXTEM  - XDF(NCR)]2  + [YTEM  - YDF(NCR)]2 


-^-As  DTEM  s (CALLOW)  • (SPACE) 


Subroutine  C'SWGRD:  Continued 
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Subroutine  CSWGRD:  Continued 
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Is  NCR  the  first  CSW  unit  to  be  processed  on  APC  A No  | 
designated  by  LAPC;i.  e. , is  NCR  LAPCCW(1,  LAPC)?/ 


Yes 


RLIMIT 

JMAX  = +1 


JMAXl 

Set  JC  = 

2 .+l 

J2T 

JMAX 

Set  J = 1 
I = 1 
CDELX  = 0 
CD  ELY  = 0 


Determine  coordinates  (XIJ,  YIJ)  of  grid  point  (I,  J);  i.  e. , 

CALL  CXY LOC (I,  J,  XU,  YIJ,  CDELX,  CDELY,  SINANG,  COSANG) 


Determine  TRCOVR,  the  percent  of  the  threat  location  covered 
relative  to  (XIJ,  YU),  and  CRWCON,  the  percent  of  the  crew 
covered  and/or  concealed  at  (XU,  YU)  relative  to  (XT,  YT);  i.  e. , 

TRCOVR  = LOSCMP(XIJ,  YIJ,  XT,  YT,  HCREW(NKWEP),  3. , 0., 

0, . FALSE. ) 

CRWCON=  LOSCMP(XT,  YT.XIJ,  YIJ,  3. , IICREW(NKWEP),  0., 

U, . FALSE. ) 


Compute  desirability  index,  DESIlt,  i.  e.  , 

DESIR  = DCW(l)  • [1  - TRCOVR  ] + DCW(2)  • [CRWCON] 


Set  DESIRE(1 , J)  = DESIR 


J - JMAX?^— — — - 


Subroutine  CSWGRD:  Continued 
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Using  subroutine  MXDSR,  determine  JF 

corresponding  to  MAX  [DESIRE(1,  J)] 

J 


Was  a fire  position  found;  i.  e. , was  any  (1,  JF)  \ No 
grid  point  in  the  DESIRE  array  ^0.  ? J 

]/Yes 


Subroutine  CSWGRD:  Continued 
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Subroutine  CXYLOC 


PURPOSE:  Subroutine  CXYLOC  determines  the  X-Y  battlefield  coordinates 

of  a fire  position  selection  grid  point  for  a dismounted  crew- 
served  weapon  unit. 

CALLING  SEQUENCE: 

CALL  CSY LOC (I,  J, XIJ,  YIJ,  CDE LX,  CDE LY, SINANG,  COSA NG) 


where 

(I,  J)  - designator  for  the  fire  position  selection  grid 

point  for  which  the  X-Y  battlefield  coordinates 
are  to  be  determined; 

(XIJ,  YIJ)  = the  X-Y  battlefield  coordinates  of  grid  point  (I,  J); 

(CDE  LX,  CDE  LY)  = the  X and  Y distance,  respectively,  of 
the  distance  from  the  maximum  effective  range 
of  the  CSW  unit  weapon  to  the  threat  location; 

SINANG  - sine  of  the  angle  in  the  X-Y  plane  between  the  CSW 
unit's  current  location  (XC,  YC)  and  the  threat 
location; 

COSANG  - cosine  of  the  angle  in  the  X-Y  plane  between  the 
CSW  unit's  current  location  (XC,YC)  and  the 
threat  location. 

RESTRICTIONS:  Subroutine  CXYLOC  is  called  only  from  subroutines  CSWDES 
and  CSWGRD. 

METHOD:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

DFINITION  OF  VARIABLES:  See  Chapter  5 of  Volume  2,  RF  2376  FR-2  (U). 

SUBROUTINES  REQUIRED:  None 

COMMON  AREAS  RE FERENCED:  CSWDF1  CSWIND 

STORAGE:  29Alf)  " bytes. 
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Subroutine  CXYLOC:  Crew-Served  Weapons— Determination 

of  Fire  Position  Grid  Coordinates 
(Dismounted  Mode) 
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